stray haxorz

mes/module/mes/psyntax-1.mes

@@ -27,6 +27,5 @@
 
 (define datum->syntax datum->syntax-object)
 (define syntax->datum syntax-object->datum)
-(define-macro (portable-macro-expand) #t)
+(define-macro (portable-macro-expand) '(begin #t))
 (set! macro-expand sc-expand)
-

mes/module/mes/repl.mes

@@ -136,7 +136,7 @@ along with GNU Mes.  If not, see <http://www.gnu.org/licenses/>.
     (define (quit . x)
       (exit 0))
     (define (use a)
-      (lambda ()
+      (lambda (. x)
         (let ((module (read)))
           (mes-load-module-env module a))))
     (define (meta command a)

src/mes.c

@@ -1375,9 +1375,6 @@ eval_apply ()
 
  macro_expand:
   {
-    macro;
-    expanders;
-
     if (TYPE (r1) != TPAIR || CAR (r1) == cell_symbol_quote)
       goto vm_return;