Cleanup

RubenVerg · Aug 2, 2024 · 59a343a · 59a343a
1 parent a1ba386
commit 59a343a
Show file tree

Hide file tree

Showing 3 changed files with 2 additions and 4 deletions.
diff --git a/README.md b/README.md
@@ -271,7 +271,7 @@ Marked features are supported, unmarked features are planned
 		* [x] `⎕u` (constant) the uppercase alphabet
 		* [x] `⎕l` (constant) the lowercase alphabet
 		* [x] `⎕d` (constant) the digits
-		* [ ] `⎕ts` current Unix timestamp
+		* [x] `⎕ts` current Unix timestamp
 		* [x] `⎕io` (constant) `1`
 		* [x] `⎕ct` (constant) `1⏨¯14`
 		* [x] `⎕seed` (set only) seed the random number generator

diff --git a/docs/interpreters/latest/tinyapl-js.wasm b/docs/interpreters/latest/tinyapl-js.wasm
diff --git a/src/TinyAPL/CoreQuads.hs b/src/TinyAPL/CoreQuads.hs
@@ -20,9 +20,7 @@ seed = Nilad Nothing (Just $ \x -> do
   let e = DomainError "Seed must be a scalar integer"
   s <- liftEither (asScalar e x) >>= liftEither . asNumber e >>= liftEither . asInt e
   setSeed s) (G.quad : "seed")
-ts = Nilad (Just $ do
-  scalar . Number . realToFrac <$> liftIO getPOSIXTime
-  ) Nothing (G.quad : "ts")
+ts = Nilad (Just $ scalar . Number . realToFrac <$> liftIO getPOSIXTime) Nothing (G.quad : "ts")
 
 exists = Function (Just $ \x -> do
   let var = show x