commit 345d93e5f605b82909435c3a25004a84f8c9aae5
parent c4f1fc21b3229694e28784036620c4495d6a093f
Author: Alexander Burger <abu@software-lab.de>
Date: Mon, 22 Jul 2013 19:26:56 +0200
Comments
Diffstat:
4 files changed, 126 insertions(+), 130 deletions(-)
diff --git a/ersatz/fun.src b/ersatz/fun.src
@@ -1,4 +1,4 @@
-# 19jul13abu
+# 22jul13abu
# (c) Software Lab. Alexander Burger
# Ersatz PicoLisp Functions
@@ -3035,7 +3035,7 @@ prove (i x y)
Penv = envSave; Pnl = nlSave;
return x;
-# (-> sym [num]) -> any
+# (-> any [num]) -> any
-> (i x)
if (!(ex.Cdr.Cdr.Car instanceof Number))
return lookup((Number)Pnl.Car, ex.Cdr.Car);
diff --git a/src/subr.c b/src/subr.c
@@ -1,4 +1,4 @@
-/* 19jul13abu
+/* 22jul13abu
* (c) Software Lab. Alexander Burger
*/
@@ -1615,7 +1615,7 @@ any doProve(any x) {
return isCell(data(e))? data(e) : isCell(data(env))? T : Nil;
}
-// (-> sym [num]) -> any
+// (-> any [num]) -> any
any doArrow(any x) {
int i;
any y;
diff --git a/src64/subr.l b/src64/subr.l
@@ -1,4 +1,4 @@
-# 19jul13abu
+# 22jul13abu
# (c) Software Lab. Alexander Burger
# (car 'var) -> any
@@ -3905,7 +3905,7 @@
end
ret
-# (-> sym [num]) -> any
+# (-> any [num]) -> any
(code 'doArrow 2)
push Z
ld E (E CDR) # E on args
diff --git a/src64/tags b/src64/tags
@@ -48,122 +48,119 @@
CHAR_LETTER63,1516
CHAR_DIGIT64,1537
-sys/x86-64.freeBsd.defs.l,1994
-ENOENT5,56
-EINTR6,71
-EBADF7,85
-EAGAIN8,99
-EACCES9,115
-EPIPE10,131
-ECONNRESET11,146
-O_RDONLY14,180
-O_WRONLY15,197
-O_RDWR16,214
-O_CREAT17,229
-O_EXCL18,247
-O_TRUNC19,265
-O_APPEND20,284
-F_GETFD21,301
-F_SETFD22,317
-FD_CLOEXEC23,333
-BUFSIZ26,361
-PIPE_BUF27,379
-MAXPATHLEN28,398
-stdin29,417
-stdout30,442
-stderr31,468
-RTLD_LAZY35,504
-RTLD_GLOBAL36,522
-FLOCK39,553
-L_TYPE40,568
-L_WHENCE41,584
-L_START42,602
-L_LEN43,618
-L_PID44,632
-SEEK_SET45,647
-SEEK_CUR46,664
-F_RDLCK47,681
-F_WRLCK48,697
-F_UNLCK49,713
-F_GETFL50,729
-F_SETFL51,745
-F_GETLK52,761
-F_SETLK53,778
-F_SETLKW54,795
-F_SETOWN55,813
-O_NONBLOCK56,830
-O_ASYNC57,849
-STAT60,874
-ST_MODE61,889
-ST_SIZE62,905
-ST_MTIME63,922
-S_IFMT64,940
-S_IFDIR65,959
-TMS68,988
-TMS_UTIME69,1001
-TMS_STIME70,1019
-TERMIOS73,1048
-C_IFLAG74,1065
-C_LFLAG75,1081
-C_CC76,1098
-ISIG77,1112
-VMIN78,1127
-VTIME79,1141
-TCSADRAIN80,1156
-SIGACTION83,1184
-SIGSET_T84,1203
-SA_HANDLER85,1221
-SA_MASK86,1240
-SA_FLAGS87,1257
-SIG_DFL88,1274
-SIG_IGN89,1290
-SIG_UNBLOCK90,1306
-SIGHUP91,1326
-SIGINT92,1341
-SIGUSR193,1356
-SIGUSR294,1373
-SIGPIPE95,1390
-SIGALRM96,1407
-SIGTERM97,1424
-SIGCHLD98,1441
-SIGCONT99,1458
-SIGSTOP100,1475
-SIGTSTP101,1492
-SIGTTIN102,1509
-SIGTTOU103,1526
-SIGIO104,1543
-SIGNALS105,1558
-WNOHANG108,1583
-WUNTRACED109,1599
-FD_SET112,1627
-TM_SEC115,1652
-TM_MIN116,1667
-TM_HOUR117,1682
-TM_MDAY118,1698
-TM_MON119,1715
-TM_YEAR120,1731
-D_NAME123,1755
-SOCK_STREAM126,1781
-SOCK_DGRAM127,1801
-AF_UNSPEC128,1820
-AF_INET6129,1838
-SOL_SOCKET130,1856
-SO_REUSEADDR131,1879
-IPPROTO_IPV6132,1900
-IPV6_V6ONLY133,1922
-INET6_ADDRSTRLEN134,1943
-NI_MAXHOST135,1969
-NI_NAMEREQD136,1991
-SOCKADDR_IN6137,2011
-SIN6_FAMILY138,2033
-SIN6_PORT139,2053
-SIN6_ADDR140,2071
-ADDRINFO141,2089
-AI_FAMILY142,2107
-AI_SOCKTYPE143,2125
-AI_ADDRLEN144,2145
-AI_ADDR145,2165
-AI_NEXT146,2182
+sys/x86-64.linux.defs.l,1959
+ENOENT5,59
+EINTR6,108
+EBADF7,155
+EAGAIN8,194
+EACCES9,227
+EPIPE10,268
+ECONNRESET11,303
+O_RDONLY14,365
+O_WRONLY15,382
+O_RDWR16,399
+O_CREAT17,414
+O_EXCL18,431
+O_TRUNC19,448
+O_APPEND20,466
+F_GETFD21,486
+F_SETFD22,502
+FD_CLOEXEC23,518
+BUFSIZ26,546
+PIPE_BUF27,564
+MAXPATHLEN29,585
+RTLD_LAZY32,613
+RTLD_GLOBAL33,631
+FLOCK36,662
+L_TYPE37,702
+L_WHENCE38,722
+L_START39,744
+L_LEN40,760
+L_PID41,775
+SEEK_SET42,790
+SEEK_CUR43,807
+F_RDLCK44,824
+F_WRLCK45,840
+F_UNLCK46,856
+F_GETFL47,872
+F_SETFL48,888
+F_GETLK49,904
+F_SETLK50,920
+F_SETLKW51,936
+F_SETOWN52,953
+O_NONBLOCK53,970
+O_ASYNC54,992
+STAT57,1019
+ST_MODE58,1061
+ST_SIZE59,1083
+ST_MTIME60,1100
+S_IFMT61,1118
+S_IFDIR62,1144
+TMS65,1180
+TMS_UTIME66,1214
+TMS_STIME67,1232
+TERMIOS70,1261
+C_IFLAG71,1304
+C_LFLAG72,1320
+C_CC73,1337
+ISIG74,1351
+VMIN75,1364
+VTIME76,1377
+TCSADRAIN77,1391
+SIGACTION80,1419
+SIGSET_T81,1462
+SA_HANDLER82,1481
+SA_MASK83,1500
+SA_FLAGS84,1516
+SIG_DFL86,1536
+SIG_IGN87,1552
+SIG_UNBLOCK88,1568
+SIGHUP90,1589
+SIGINT91,1615
+SIGUSR192,1630
+SIGUSR293,1647
+SIGPIPE94,1664
+SIGALRM95,1681
+SIGTERM96,1698
+SIGCHLD97,1715
+SIGCONT98,1732
+SIGSTOP99,1749
+SIGTSTP100,1766
+SIGTTIN101,1783
+SIGTTOU102,1800
+SIGIO103,1817
+SIGNALS104,1832
+WNOHANG107,1894
+WUNTRACED108,1910
+FD_SET111,1938
+TM_SEC114,1975
+TM_MIN115,1990
+TM_HOUR116,2005
+TM_MDAY117,2021
+TM_MON118,2038
+TM_YEAR119,2054
+D_NAME122,2078
+SOCK_STREAM125,2105
+SOCK_DGRAM126,2125
+AF_UNSPEC127,2144
+AF_INET6128,2162
+SOL_SOCKET129,2180
+SO_REUSEADDR130,2199
+IPPROTO_IPV6131,2220
+IPV6_V6ONLY132,2242
+INET6_ADDRSTRLEN133,2263
+NI_MAXHOST135,2290
+NI_NAMEREQD136,2312
+SOCKADDR_IN6138,2333
+SIN6_FAMILY139,2355
+SIN6_PORT140,2375
+SIN6_ADDR141,2393
+ADDRINFO143,2412
+AI_FAMILY144,2430
+AI_SOCKTYPE145,2448
+AI_ADDRLEN146,2468
+AI_ADDR147,2488
+AI_NEXT148,2505
./glob.l,4331
Data4,51
@@ -413,7 +410,7 @@ sys/x86-64.freeBsd.defs.l,1994
UndefErr1247,85443
DlErr1248,85472
-./main.l,2261
+./main.l,2242
Code4,51
Ret8,106
Retc10,127
@@ -512,7 +509,6 @@ sys/x86-64.freeBsd.defs.l,1994
putStringB2538,62459
begString2550,62673
endString_E2561,62899
-msec_A2576,63247
doArgs2590,63556
doNext2597,63670
doArg2614,63986
@@ -1259,9 +1255,9 @@ sys/x86-64.freeBsd.defs.l,1994
getUdpZ_FB373,9872
putUdpBZ380,10017
-sys/x86-64.freeBsd.code.l,94
-errno_A5,64
-errnoC10,158
-wifstoppedS_F21,537
-wifsignaledS_F27,688
-wtermsigS_A36,897
+sys/x86-64.linux.code.l,94
+errno_A5,67
+errnoC10,169
+wifstoppedS_F16,287
+wifsignaledS_F21,413
+wtermsigS_A28,568
