- fixed bug in tag annotation for primitives that are applied an

incorrect number of arguments.

scheme/ikarus.compiler.tag-annotation-analysis.ss

@@ -244,13 +244,12 @@
           [(null? x*) env]
           [else (extend (car x*) (car t*)
                   (extend* (cdr x*) (cdr t*) env))]))
-      (cond
+      (values 
-        [(= (length rand-t*) (length rand*))
+        (make-funcall (make-primref op) rand*)
-         (values (make-funcall (make-primref op) rand*)
+        (if (= (length rand-t*) (length rand*))
             (extend* rand* rand-t* env)
-                 ret-t)]
+            env) ;;; incorrect number of args
-        [else
+        ret-t))
-         (error 'apply-primcall "invalid extesion" op rand*)]))
     (define (inject* ret-t arg-t)
       (define (extend* x* env)
         (define (extend x t env)

scheme/last-revision

@@ -1 +1 @@
-1628
+1629