picolisp

commit 223271f92f745c7f402e8cb4f85374f24b56f629
parent 8ad3a9d211cd4204d946d7c009700b57e46e128b
Author: Alexander Burger <abu@software-lab.de>
Date:   Sun,  9 Oct 2011 08:05:55 +0200

Added '*OS' global
Diffstat:
M
ersatz/lib.l
 | 
4
+++-

1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/ersatz/lib.l b/ersatz/lib.l
@@ -1,6 +1,8 @@
-# 20sep11abu
+# 09oct11abu
 # (c) Software Lab. Alexander Burger
 
+(setq *OS (java (java "java.lang.System" "getProperty" "os.name")))
+
 ############ lib.l ############
 
 (de task (Key . Prg)