mes: Single environment lookup for variables, SICP chapter 3.
[mes.git] / make.scm
index 6b6702d875d5cf1f4aab2d8ad6bd211e0ff6dff9..9c523e9083d80f4c83c27dfcf8e09a499a88bca6 100755 (executable)
--- a/make.scm
+++ b/make.scm
@@ -434,9 +434,7 @@ exec ${GUILE-guile} --no-auto-compile -L . -L guile -C . -C guile -s "$0" ${1+"$
    (add-target (snarf "src/vector.c" #:mes? #t))))
 
 (add-target (bin.gcc "src/mes.c" #:dependencies gcc-snarf-targets
-                     #:defines `("MES_FIXED_PRIMITIVES=1"
-                                 "MES_FULL=1"
-                                 "POSIX=1"
+                     #:defines `("POSIX=1"
                                  ,(string-append "VERSION=\"" %version "\"")
                                  ,(string-append "MODULEDIR=\"" (string-append %prefix (if (string-null? %prefix) "" "/") %moduledir "/") "\"")
                                  ,(string-append "PREFIX=\"" %prefix "\""))
@@ -444,17 +442,13 @@ exec ${GUILE-guile} --no-auto-compile -L . -L guile -C . -C guile -s "$0" ${1+"$
 
 (add-target (bin.gcc "src/mes.c" #:libc libc-gcc.mlibc-o
                      #:dependencies mes-snarf-targets
-                     #:defines `( "MES_FIXED_PRIMITIVES=1"
-                                 "MES_FULL=1"
-                                 ,(string-append "VERSION=\"" %version "\"")
+                     #:defines `(,(string-append "VERSION=\"" %version "\"")
                                  ,(string-append "MODULEDIR=\"" (string-append %prefix (if (string-null? %prefix) "" "/") "/" %moduledir "/") "\"")
                                  ,(string-append "PREFIX=\"" %prefix "\""))
                      #:includes '("src")))
 
 (add-target (bin.mescc "src/mes.c" #:dependencies mes-snarf-targets
-                       #:defines `("MES_FIXED_PRIMITIVES=1"
-                                   "MES_FULL=1"
-                                   ,(string-append "VERSION=\"" %version "\"")
+                       #:defines `(,(string-append "VERSION=\"" %version "\"")
                                    ,(string-append "MODULEDIR=\"" (string-append %prefix (if (string-null? %prefix) "" "/") %moduledir "/") "\"")
                                    ,(string-append "PREFIX=\"" %prefix "\""))
                        #:includes '("src")))