picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

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:
Mersatz/PicoLisp.java | 3++-
Mersatz/picolisp | 4++--
Mersatz/picolisp.jar | 0
Mersatz/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);