commit af8fc0a67851580edab96ae0668ec41762290105
parent ca041f7eaff5e1f4390b93a10d6f7507e0c105f2
Author: Alexander Burger <abu@software-lab.de>
Date: Sat, 5 Jan 2013 08:22:08 +0100
Cosmetics
Diffstat:
3 files changed, 24 insertions(+), 25 deletions(-)
diff --git a/lib/map b/lib/map
@@ -34,7 +34,7 @@ append (1338 . "@src64/subr.l")
apply (713 . "@src64/apply.l")
arg (2573 . "@src64/main.l")
args (2549 . "@src64/main.l")
-argv (3202 . "@src64/main.l")
+argv (3201 . "@src64/main.l")
as (139 . "@src64/flow.l")
asoq (3020 . "@src64/subr.l")
assoc (2985 . "@src64/subr.l")
@@ -66,7 +66,7 @@ call (3096 . "@src64/flow.l")
car (5 . "@src64/subr.l")
case (1965 . "@src64/flow.l")
catch (2467 . "@src64/flow.l")
-cd (2954 . "@src64/main.l")
+cd (2953 . "@src64/main.l")
cdaaar (464 . "@src64/subr.l")
cdaadr (487 . "@src64/subr.l")
cdaar (179 . "@src64/subr.l")
@@ -89,7 +89,7 @@ circ (816 . "@src64/subr.l")
circ? (2402 . "@src64/subr.l")
clip (1799 . "@src64/subr.l")
close (4392 . "@src64/io.l")
-cmd (3184 . "@src64/main.l")
+cmd (3183 . "@src64/main.l")
cnt (1413 . "@src64/apply.l")
co (2548 . "@src64/flow.l")
commit (1403 . "@src64/db.l")
@@ -100,7 +100,7 @@ connect (224 . "@src64/net.l")
cons (747 . "@src64/subr.l")
copy (1225 . "@src64/subr.l")
ctl (4265 . "@src64/io.l")
-ctty (2979 . "@src64/main.l")
+ctty (2978 . "@src64/main.l")
cut (1931 . "@src64/sym.l")
date (2687 . "@src64/main.l")
dbck (2018 . "@src64/db.l")
@@ -112,7 +112,7 @@ del (1986 . "@src64/sym.l")
delete (1401 . "@src64/subr.l")
delq (1452 . "@src64/subr.l")
diff (2589 . "@src64/subr.l")
-dir (3114 . "@src64/main.l")
+dir (3113 . "@src64/main.l")
dm (545 . "@src64/flow.l")
do (2141 . "@src64/flow.l")
e (2928 . "@src64/flow.l")
@@ -129,7 +129,7 @@ extern (1032 . "@src64/sym.l")
extra (1269 . "@src64/flow.l")
extract (1218 . "@src64/apply.l")
fifo (2097 . "@src64/sym.l")
-file (3061 . "@src64/main.l")
+file (3060 . "@src64/main.l")
fill (3255 . "@src64/subr.l")
filter (1161 . "@src64/apply.l")
fin (2033 . "@src64/subr.l")
@@ -167,7 +167,7 @@ ifn (1865 . "@src64/flow.l")
in (4205 . "@src64/io.l")
inc (2256 . "@src64/big.l")
index (2637 . "@src64/subr.l")
-info (3016 . "@src64/main.l")
+info (3015 . "@src64/main.l")
intern (1007 . "@src64/sym.l")
ipid (3215 . "@src64/flow.l")
isa (967 . "@src64/flow.l")
@@ -240,7 +240,7 @@ onOff (1747 . "@src64/sym.l")
one (1780 . "@src64/sym.l")
open (4349 . "@src64/io.l")
opid (3231 . "@src64/flow.l")
-opt (3305 . "@src64/main.l")
+opt (3304 . "@src64/main.l")
or (1640 . "@src64/flow.l")
out (4225 . "@src64/io.l")
pack (1279 . "@src64/sym.l")
@@ -273,7 +273,7 @@ push (1822 . "@src64/sym.l")
push1 (1858 . "@src64/sym.l")
put (2844 . "@src64/sym.l")
putl (3122 . "@src64/sym.l")
-pwd (2943 . "@src64/main.l")
+pwd (2942 . "@src64/main.l")
queue (2054 . "@src64/sym.l")
quit (1285 . "@src64/main.l")
quote (134 . "@src64/flow.l")
@@ -340,9 +340,9 @@ up (766 . "@src64/main.l")
upp? (3402 . "@src64/sym.l")
uppc (3469 . "@src64/sym.l")
use (1573 . "@src64/flow.l")
-usec (2925 . "@src64/main.l")
+usec (2924 . "@src64/main.l")
val (1597 . "@src64/sym.l")
-version (3319 . "@src64/main.l")
+version (3318 . "@src64/main.l")
wait (3164 . "@src64/io.l")
when (1884 . "@src64/flow.l")
while (2061 . "@src64/flow.l")
diff --git a/src64/main.l b/src64/main.l
@@ -1,4 +1,4 @@
-# 04jan13abu
+# 05jan13abu
# (c) Software Lab. Alexander Burger
(code 'Code)
@@ -2834,10 +2834,9 @@
if eq # Yes
ld Y (Time) # Get time from last call to 'date'
null Y # Any?
+ ldz E Nil
if nz # Yes
call tmTimeY_E # Extract time
- else
- ld E Nil
end
else
cmp E Nil # NIL?
diff --git a/src64/tags b/src64/tags
@@ -517,17 +517,17 @@ sys/x86-64.linux.defs.l,1959
doDate2687,65239
tmTimeY_E2803,68850
doTime2820,69183
-doUsec2925,72177
-doPwd2943,72594
-doCd2954,72849
-doCtty2979,73465
-doInfo3016,74399
-doFile3061,75494
-doDir3114,76730
-doCmd3184,78348
-doArgv3202,78807
-doOpt3305,81353
-doVersion3319,81684
+doUsec2924,72161
+doPwd2942,72578
+doCd2953,72833
+doCtty2978,73449
+doInfo3015,74383
+doFile3060,75478
+doDir3113,76714
+doCmd3183,78332
+doArgv3201,78791
+doOpt3304,81337
+doVersion3318,81668
./big.l,1059
zapZeroA_A6,106
