shithub: femtolisp

Info  •  Files  •  Log  •  Branches

set *os-name*

--- a/flisp.c

+++ b/flisp.c

@@ -2339,6 +2339,8 @@

     set(symbol("*os-name*"), symbol("freebsd"));

 #elif defined(NETBSD)

     set(symbol("*os-name*"), symbol("netbsd"));

+#elif defined(__plan9__)

+    set(symbol("*os-name*"), symbol("plan9"));

 #else

     set(symbol("*os-name*"), symbol("unknown"));

 #endif