commit 2a9223d48190e9aae0e9654f9b44750f312d6f06
parent 72233020f0c1abae34ea89bf7e2d1385a824472e
Author: Commit-Bot <unknown>
Date: Sat, 12 Jun 2010 07:33:03 +0000
Automatic commit from picoLisp.tgz, From: Sat, 12 Jun 2010 07:33:03 GMT
Diffstat:
2 files changed, 24 insertions(+), 23 deletions(-)
diff --git a/lib/tags b/lib/tags
@@ -25,16 +25,16 @@ $ (2966 . "@src64/flow.l")
>> (2308 . "@src64/big.l")
abs (2398 . "@src64/big.l")
accept (139 . "@src64/net.l")
-adr (608 . "@src64/main.l")
+adr (609 . "@src64/main.l")
alarm (483 . "@src64/main.l")
all (772 . "@src64/sym.l")
and (1643 . "@src64/flow.l")
any (3764 . "@src64/io.l")
append (1329 . "@src64/subr.l")
apply (597 . "@src64/apply.l")
-arg (1988 . "@src64/main.l")
-args (1964 . "@src64/main.l")
-argv (2609 . "@src64/main.l")
+arg (1989 . "@src64/main.l")
+args (1965 . "@src64/main.l")
+argv (2610 . "@src64/main.l")
as (146 . "@src64/flow.l")
asoq (2942 . "@src64/subr.l")
assoc (2907 . "@src64/subr.l")
@@ -65,7 +65,7 @@ call (3097 . "@src64/flow.l")
car (5 . "@src64/subr.l")
case (1984 . "@src64/flow.l")
catch (2484 . "@src64/flow.l")
-cd (2364 . "@src64/main.l")
+cd (2365 . "@src64/main.l")
cdaaar (464 . "@src64/subr.l")
cdaadr (487 . "@src64/subr.l")
cdaar (179 . "@src64/subr.l")
@@ -87,7 +87,7 @@ chop (1093 . "@src64/sym.l")
circ (816 . "@src64/subr.l")
clip (1786 . "@src64/subr.l")
close (4152 . "@src64/io.l")
-cmd (2591 . "@src64/main.l")
+cmd (2592 . "@src64/main.l")
cnt (1297 . "@src64/apply.l")
co (2566 . "@src64/flow.l")
commit (1503 . "@src64/db.l")
@@ -98,9 +98,9 @@ connect (201 . "@src64/net.l")
cons (747 . "@src64/subr.l")
copy (1216 . "@src64/subr.l")
ctl (4092 . "@src64/io.l")
-ctty (2389 . "@src64/main.l")
+ctty (2390 . "@src64/main.l")
cut (1797 . "@src64/sym.l")
-date (2103 . "@src64/main.l")
+date (2104 . "@src64/main.l")
dbck (2092 . "@src64/db.l")
de (549 . "@src64/flow.l")
dec (2006 . "@src64/big.l")
@@ -110,15 +110,15 @@ del (1852 . "@src64/sym.l")
delete (1392 . "@src64/subr.l")
delq (1443 . "@src64/subr.l")
diff (2563 . "@src64/subr.l")
-dir (2522 . "@src64/main.l")
+dir (2523 . "@src64/main.l")
dm (561 . "@src64/flow.l")
do (2158 . "@src64/flow.l")
e (2927 . "@src64/flow.l")
echo (4183 . "@src64/io.l")
-env (620 . "@src64/main.l")
+env (621 . "@src64/main.l")
eof (3323 . "@src64/io.l")
eol (3314 . "@src64/io.l")
-errno (1315 . "@src64/main.l")
+errno (1316 . "@src64/main.l")
eval (208 . "@src64/flow.l")
ext (4874 . "@src64/io.l")
ext? (1034 . "@src64/sym.l")
@@ -126,7 +126,7 @@ extern (900 . "@src64/sym.l")
extra (1284 . "@src64/flow.l")
extract (1102 . "@src64/apply.l")
fifo (1963 . "@src64/sym.l")
-file (2469 . "@src64/main.l")
+file (2470 . "@src64/main.l")
fill (3177 . "@src64/subr.l")
filter (1045 . "@src64/apply.l")
fin (2020 . "@src64/subr.l")
@@ -163,7 +163,7 @@ ifn (1884 . "@src64/flow.l")
in (3988 . "@src64/io.l")
inc (1939 . "@src64/big.l")
index (2611 . "@src64/subr.l")
-info (2426 . "@src64/main.l")
+info (2427 . "@src64/main.l")
intern (875 . "@src64/sym.l")
ipid (3209 . "@src64/flow.l")
isa (978 . "@src64/flow.l")
@@ -217,10 +217,10 @@ n== (2074 . "@src64/subr.l")
nT (2185 . "@src64/subr.l")
name (499 . "@src64/sym.l")
nand (1678 . "@src64/flow.l")
-native (1323 . "@src64/main.l")
+native (1324 . "@src64/main.l")
need (918 . "@src64/subr.l")
new (852 . "@src64/flow.l")
-next (1971 . "@src64/main.l")
+next (1972 . "@src64/main.l")
nil (1761 . "@src64/flow.l")
nond (1961 . "@src64/flow.l")
nor (1699 . "@src64/flow.l")
@@ -234,7 +234,7 @@ onOff (1613 . "@src64/sym.l")
one (1646 . "@src64/sym.l")
open (4114 . "@src64/io.l")
opid (3225 . "@src64/flow.l")
-opt (2712 . "@src64/main.l")
+opt (2713 . "@src64/main.l")
or (1659 . "@src64/flow.l")
out (4008 . "@src64/io.l")
pack (1144 . "@src64/sym.l")
@@ -267,9 +267,9 @@ push (1688 . "@src64/sym.l")
push1 (1724 . "@src64/sym.l")
put (2698 . "@src64/sym.l")
putl (2950 . "@src64/sym.l")
-pwd (2353 . "@src64/main.l")
+pwd (2354 . "@src64/main.l")
queue (1920 . "@src64/sym.l")
-quit (1032 . "@src64/main.l")
+quit (1033 . "@src64/main.l")
quote (141 . "@src64/flow.l")
rand (2642 . "@src64/big.l")
range (988 . "@src64/subr.l")
@@ -278,7 +278,7 @@ raw (461 . "@src64/main.l")
rd (4891 . "@src64/io.l")
read (2502 . "@src64/io.l")
replace (1490 . "@src64/subr.l")
-rest (2017 . "@src64/main.l")
+rest (2018 . "@src64/main.l")
reverse (1665 . "@src64/subr.l")
rewind (4857 . "@src64/io.l")
rollback (1885 . "@src64/db.l")
@@ -319,7 +319,7 @@ text (1272 . "@src64/sym.l")
throw (2510 . "@src64/flow.l")
tick (3177 . "@src64/flow.l")
till (3409 . "@src64/io.l")
-time (2236 . "@src64/main.l")
+time (2237 . "@src64/main.l")
touch (1049 . "@src64/sym.l")
trim (1746 . "@src64/subr.l")
try (1191 . "@src64/flow.l")
@@ -328,13 +328,13 @@ udp (268 . "@src64/net.l")
unify (3842 . "@src64/subr.l")
unless (1920 . "@src64/flow.l")
until (2104 . "@src64/flow.l")
-up (707 . "@src64/main.l")
+up (708 . "@src64/main.l")
upp? (3232 . "@src64/sym.l")
uppc (3296 . "@src64/sym.l")
use (1592 . "@src64/flow.l")
-usec (2341 . "@src64/main.l")
+usec (2342 . "@src64/main.l")
val (1463 . "@src64/sym.l")
-version (2726 . "@src64/main.l")
+version (2727 . "@src64/main.l")
wait (2988 . "@src64/io.l")
when (1903 . "@src64/flow.l")
while (2080 . "@src64/flow.l")
diff --git a/src64/main.l b/src64/main.l
@@ -598,6 +598,7 @@
ld (A) (X -I)
ld (A CDR) E
ld E A
+ continue T
end
until z
pop X
