Changeset 12358 for lang/c/misc/mlisp/core/m_basic.cpp

Timestamp:

05/25/08 22:12:38 (5 years ago)

Author:

mokehehe

Message:

Add 'begin' syntax.
Add 'gensym' for macro.

Files:

• lang/c/misc/mlisp/core/m_basic.cpp (modified) (2 diffs)

lang/c/misc/mlisp/core/m_basic.cpp

@@ -245 +245 @@
 }
 
+static SExp builtin_gensym() {
+        static int cnt;
+        char buf[16];
+        sprintf(buf, "G:%d", ++cnt);
+        return intern(buf);
+}
+
 
 
@@ -331 +338 @@
                 {       "compile",      builtin_compile,        1,      1,      },
                 {       "exit",         builtin_exit,           0,      1,      },
+
+                {       "gensym",       builtin_gensym,         0,      0,      },
         };
         for (int i=0; i<sizeof(tbl)/sizeof(*tbl); ++i) {