- added missing import into (ikarus foreign)
- fixed compiler bug in compiler (impose-evaluation-order was not stripping all annotations).
This commit is contained in:
parent
b9519122fe
commit
5ba29fe3aa
|
@ -27,7 +27,7 @@
|
||||||
make-c-callout make-c-callback
|
make-c-callout make-c-callback
|
||||||
pointer-size)
|
pointer-size)
|
||||||
|
|
||||||
(import (ikarus system $foreign))
|
(import (ikarus) (ikarus system $foreign))
|
||||||
|
|
||||||
(define (pointer-size)
|
(define (pointer-size)
|
||||||
(cond
|
(cond
|
||||||
|
|
|
@ -759,6 +759,7 @@
|
||||||
[(forcall) (VT x)]
|
[(forcall) (VT x)]
|
||||||
[(shortcut body handler)
|
[(shortcut body handler)
|
||||||
(make-shortcut (Tail body) (Tail handler))]
|
(make-shortcut (Tail body) (Tail handler))]
|
||||||
|
[(known x) (Tail x)]
|
||||||
[else (error who "invalid tail" x)]))
|
[else (error who "invalid tail" x)]))
|
||||||
;;;
|
;;;
|
||||||
(define (formals-locations args)
|
(define (formals-locations args)
|
||||||
|
|
|
@ -1 +1 @@
|
||||||
1688
|
1690
|
||||||
|
|
Loading…
Reference in New Issue