- added missing import into (ikarus foreign)

- fixed compiler bug in compiler (impose-evaluation-order was not
  stripping all annotations).

lib/ikarus/foreign.ss

@@ -27,7 +27,7 @@
           make-c-callout make-c-callback 
           pointer-size)
 
-  (import (ikarus system $foreign))
+  (import (ikarus) (ikarus system $foreign))
 
   (define (pointer-size)
     (cond

scheme/ikarus.compiler.altcogen.ss

@@ -759,6 +759,7 @@
       [(forcall) (VT x)]
       [(shortcut body handler)
        (make-shortcut (Tail body) (Tail handler))]
+      [(known x) (Tail x)]
       [else (error who "invalid tail" x)]))
   ;;;
   (define (formals-locations args)

scheme/last-revision

@@ -1 +1 @@
-1688
+1690