Changeset 12102 in project

Timestamp:

10/02/08 16:25:31 (12 years ago)

Author:

felix winkelmann

Message:

added test-case for declarations in modules

Location:

chicken/trunk

Files:

• compiler.scm (modified) (1 diff)
• tests/compiler-tests.scm (added)
• tests/runtests.sh (modified) (1 diff)

chicken/trunk/compiler.scm

@@ -1239 +1239 @@
      (unless (pair? spec)
        (syntax-error "invalid declaration specification" spec) )
-     (pp `(DECLARE: ,(strip spec)))
+     ;(pp `(DECLARE: ,(strip spec)))
      (case (##sys#strip-syntax (car spec)) ; no global aliasing
        ((uses)

chicken/trunk/tests/runtests.sh

@@ -9 +9 @@
 compile_s="../csc -s -compiler ../chicken -v -I.. -L.. -include-path .."
 interpret="../csi -include-path .."
+
+echo "======================================== compiler tests ..."
+$compile compiler-tests.scm && ./a.out
 
 echo "======================================== runtime tests ..."