*** empty log message ***

[bpt/guile.git] / module / system / il / glil.scm

diff --git a/module/system/il/glil.scm b/module/system/il/glil.scm
index c54509d..cd2865f 100644 (file)
--- a/module/system/il/glil.scm
+++ b/module/system/il/glil.scm
@@ -156,7 +156,7 @@
     (($ <glil-module> op module name)
      `(,(symbol-append 'module- op) ,module ,name))
     ;; controls
-    (($ <glil-label> label) `(label ,label))
+    (($ <glil-label> label) label)
     (($ <glil-branch> inst label) `(,inst ,label))
     (($ <glil-call> inst nargs) `(,inst ,nargs))))
 
@@ -168,14 +168,13 @@
 (define (pprint-glil glil)
   (let print ((code (unparse glil)) (column 0))
     (display (make-string column #\space))
-    (case (car code)
-      ((@asm)
-       (format #t "(@asm ~A\n" (cadr code))
-       (let ((col (+ column 2)))
-        (let loop ((l (cddr code)))
-          (print (car l) col)
-          (if (null? (cdr l))
-              (display ")")
-              (begin (newline) (loop (cdr l)))))))
-      (else (write code))))
+    (cond ((and (pair? code) (eq? (car code) '@asm))
+          (format #t "(@asm ~A\n" (cadr code))
+          (let ((col (+ column 2)))
+            (let loop ((l (cddr code)))
+              (print (car l) col)
+              (if (null? (cdr l))
+                  (display ")")
+                  (begin (newline) (loop (cdr l)))))))
+         (else (write code))))
   (newline))