picolisp

commit 3cb17b08d08117a48c41d976ced3a5d4900db066
parent 6d3ef2e1af24e486c7aca4f5535f37a3e995beee
Author: Commit-Bot <unknown>
Date:   Fri, 12 Nov 2010 09:24:32 +0000

Automatic commit from picoLisp.tgz, From: Fri, 12 Nov 2010 09:24:32 GMT
Diffstat:
M
ersatz/PicoLisp.java
 | 
3
++-
M
ersatz/picolisp
 | 
4
++--
M
ersatz/picolisp.jar
 | 
0

M
ersatz/sys.src
 | 
3
++-

4 files changed, 6 insertions(+), 4 deletions(-)
diff --git a/ersatz/PicoLisp.java b/ersatz/PicoLisp.java
@@ -1,4 +1,4 @@
-// 11nov10abu
+// 12nov10abu
 // (c) Software Lab. Alexander Burger
 
 import java.util.*;
@@ -25,6 +25,7 @@ public class PicoLisp {
 
    final static NilSym Nil = new NilSym();
    final static Symbol T = mkSymbol(null, "T", Intern);
+   final static Symbol Pid = mkSymbol(new Number(System.getProperty("PID")), "*Pid", Intern);
    final static Symbol At = mkSymbol(Nil, "@", Intern);
    final static Symbol At2 = mkSymbol(Nil, "@@", Intern);
    final static Symbol At3 = mkSymbol(Nil, "@@@", Intern);
diff --git a/ersatz/picolisp b/ersatz/picolisp
@@ -1,5 +1,5 @@
 #!/bin/sh
-# 06oct10abu
+# 12nov10abu
 
 # Run Ersatz PicoLisp
-exec java -jar ${0%/*}/picolisp.jar "$@"
+exec java -DPID=$$ -jar ${0%/*}/picolisp.jar "$@"
diff --git a/ersatz/picolisp.jar b/ersatz/picolisp.jar
Binary files differ.
diff --git a/ersatz/sys.src b/ersatz/sys.src
@@ -1,4 +1,4 @@
-// 11nov10abu
+// 12nov10abu
 // (c) Software Lab. Alexander Burger
 
 import java.util.*;
@@ -25,6 +25,7 @@ public class PicoLisp {
 
    final static NilSym Nil = new NilSym();
    final static Symbol T = mkSymbol(null, "T", Intern);
+   final static Symbol Pid = mkSymbol(new Number(System.getProperty("PID")), "*Pid", Intern);
    final static Symbol At = mkSymbol(Nil, "@", Intern);
    final static Symbol At2 = mkSymbol(Nil, "@@", Intern);
    final static Symbol At3 = mkSymbol(Nil, "@@@", Intern);