fix emission of meta procedures

* module/language/glil/compile-assembly.scm: Fix the check for when to
  emit a "meta" procedure. Fixes
  http://thread.gmane.org/gmane.lisp.guile.user/7469/focus=7470.

diff --git a/module/language/glil/compile-assembly.scm b/module/language/glil/compile-assembly.scm
index 490d1a4..32c5a9d 100644 (file)
--- a/module/language/glil/compile-assembly.scm
+++ b/module/language/glil/compile-assembly.scm
@@ -69,7 +69,9 @@
             (lp (cdr in) out filename)))))))
 
 (define (make-meta bindings sources arities tail)
-  (if (and (null? bindings) (null? sources) (null? tail))
+  ;; sounds silly, but the only case in which we have no arities is when
+  ;; compiling a meta procedure.
+  (if (and (null? bindings) (null? sources) (null? arities) (null? tail))
       #f
       (compile-assembly
        (make-glil-program '()