picolisp

commit 0784494301f19bbc3970a5845d0ddcf86335b186
parent d13515c02b3b2d41e52fd77afa9d4d08a5666775
Author: Alexander Burger <abu@software-lab.de>
Date:   Thu,  7 Apr 2011 15:57:45 +0200

'Month' also moved to data section
Diffstat:
M
lib/tags
 | 
26
+++++++++++++-------------
M
src64/glob.l
 | 
1
+
M
src64/main.l
 | 
3
+--

3 files changed, 15 insertions(+), 15 deletions(-)
diff --git a/lib/tags b/lib/tags
@@ -34,7 +34,7 @@ append (1338 . "@src64/subr.l")
 apply (713 . "@src64/apply.l")
 arg (2267 . "@src64/main.l")
 args (2243 . "@src64/main.l")
-argv (2888 . "@src64/main.l")
+argv (2887 . "@src64/main.l")
 as (144 . "@src64/flow.l")
 asoq (3001 . "@src64/subr.l")
 assoc (2966 . "@src64/subr.l")
@@ -65,7 +65,7 @@ call (3082 . "@src64/flow.l")
 car (5 . "@src64/subr.l")
 case (1957 . "@src64/flow.l")
 catch (2459 . "@src64/flow.l")
-cd (2643 . "@src64/main.l")
+cd (2642 . "@src64/main.l")
 cdaaar (464 . "@src64/subr.l")
 cdaadr (487 . "@src64/subr.l")
 cdaar (179 . "@src64/subr.l")
@@ -88,7 +88,7 @@ circ (816 . "@src64/subr.l")
 circ? (2398 . "@src64/subr.l")
 clip (1795 . "@src64/subr.l")
 close (4335 . "@src64/io.l")
-cmd (2870 . "@src64/main.l")
+cmd (2869 . "@src64/main.l")
 cnt (1413 . "@src64/apply.l")
 co (2540 . "@src64/flow.l")
 commit (1494 . "@src64/db.l")
@@ -99,9 +99,9 @@ connect (201 . "@src64/net.l")
 cons (747 . "@src64/subr.l")
 copy (1225 . "@src64/subr.l")
 ctl (4213 . "@src64/io.l")
-ctty (2668 . "@src64/main.l")
+ctty (2667 . "@src64/main.l")
 cut (1795 . "@src64/sym.l")
-date (2382 . "@src64/main.l")
+date (2381 . "@src64/main.l")
 dbck (2103 . "@src64/db.l")
 de (529 . "@src64/flow.l")
 dec (2323 . "@src64/big.l")
@@ -111,7 +111,7 @@ del (1850 . "@src64/sym.l")
 delete (1401 . "@src64/subr.l")
 delq (1452 . "@src64/subr.l")
 diff (2585 . "@src64/subr.l")
-dir (2801 . "@src64/main.l")
+dir (2800 . "@src64/main.l")
 dm (541 . "@src64/flow.l")
 do (2133 . "@src64/flow.l")
 e (2914 . "@src64/flow.l")
@@ -128,7 +128,7 @@ extern (898 . "@src64/sym.l")
 extra (1259 . "@src64/flow.l")
 extract (1218 . "@src64/apply.l")
 fifo (1961 . "@src64/sym.l")
-file (2748 . "@src64/main.l")
+file (2747 . "@src64/main.l")
 fill (3236 . "@src64/subr.l")
 filter (1161 . "@src64/apply.l")
 fin (2029 . "@src64/subr.l")
@@ -165,7 +165,7 @@ ifn (1857 . "@src64/flow.l")
 in (4153 . "@src64/io.l")
 inc (2256 . "@src64/big.l")
 index (2633 . "@src64/subr.l")
-info (2705 . "@src64/main.l")
+info (2704 . "@src64/main.l")
 intern (873 . "@src64/sym.l")
 ipid (3201 . "@src64/flow.l")
 isa (956 . "@src64/flow.l")
@@ -238,7 +238,7 @@ onOff (1611 . "@src64/sym.l")
 one (1644 . "@src64/sym.l")
 open (4297 . "@src64/io.l")
 opid (3217 . "@src64/flow.l")
-opt (2991 . "@src64/main.l")
+opt (2990 . "@src64/main.l")
 or (1632 . "@src64/flow.l")
 out (4173 . "@src64/io.l")
 pack (1142 . "@src64/sym.l")
@@ -271,7 +271,7 @@ push (1686 . "@src64/sym.l")
 push1 (1722 . "@src64/sym.l")
 put (2696 . "@src64/sym.l")
 putl (2948 . "@src64/sym.l")
-pwd (2632 . "@src64/main.l")
+pwd (2631 . "@src64/main.l")
 queue (1918 . "@src64/sym.l")
 quit (1097 . "@src64/main.l")
 quote (139 . "@src64/flow.l")
@@ -322,7 +322,7 @@ text (1270 . "@src64/sym.l")
 throw (2485 . "@src64/flow.l")
 tick (3169 . "@src64/flow.l")
 till (3575 . "@src64/io.l")
-time (2515 . "@src64/main.l")
+time (2514 . "@src64/main.l")
 touch (1047 . "@src64/sym.l")
 trim (1755 . "@src64/subr.l")
 try (1169 . "@src64/flow.l")
@@ -335,9 +335,9 @@ up (705 . "@src64/main.l")
 upp? (3228 . "@src64/sym.l")
 uppc (3292 . "@src64/sym.l")
 use (1565 . "@src64/flow.l")
-usec (2620 . "@src64/main.l")
+usec (2619 . "@src64/main.l")
 val (1461 . "@src64/sym.l")
-version (3005 . "@src64/main.l")
+version (3004 . "@src64/main.l")
 wait (3115 . "@src64/io.l")
 when (1876 . "@src64/flow.l")
 while (2053 . "@src64/flow.l")
diff --git a/src64/glob.l b/src64/glob.l
@@ -1136,6 +1136,7 @@
 : Jam       byte 0            # Error jam
 : InBye     byte 0            # Exit status
 : Sync      byte 0            # Family IPC synchronization
+: Month bytes (31 31 28 31 30 31 30 31 31 30 31 30 31)
 
 # Strings
 :: _r_ asciz "r"
diff --git a/src64/main.l b/src64/main.l
@@ -1,4 +1,4 @@
-# 06apr11abu
+# 07apr11abu
 # (c) Software Lab. Alexander Burger
 
 (code 'Code 0)
@@ -2373,7 +2373,6 @@
    shl E 4  # Make short number
    or E CNT
    ret
-: Month bytes (31 31 28 31 30 31 30 31 31 30 31 30 31)
 
 # (date ['T]) -> dat
 # (date 'dat) -> (y m d)