~ chicken-core (chicken-5) b1288c7a897c92be5768713a4a327c161ef34194
commit b1288c7a897c92be5768713a4a327c161ef34194
Author: Peter Bex <peter@more-magic.net>
AuthorDate: Sat Aug 22 17:58:09 2015 +0200
Commit: Peter Bex <peter@more-magic.net>
CommitDate: Sat Aug 22 19:37:26 2015 +0200
drop rewrites for ##sys#direct-return
Conflicts:
c-platform.scm
diff --git a/c-platform.scm b/c-platform.scm
index cb86c090..61e81a8f 100644
--- a/c-platform.scm
+++ b/c-platform.scm
@@ -213,7 +213,7 @@
##sys#check-open-port
##sys#check-char ##sys#check-vector ##sys#check-byte-vector ##sys#list ##sys#cons
##sys#call-with-values ##sys#flonum-in-fixnum-range?
- ##sys#fudge ##sys#immediate? ##sys#direct-return ##sys#context-switch
+ ##sys#fudge ##sys#immediate? ##sys#context-switch
##sys#make-structure ##sys#apply ##sys#apply-values ##sys#continuation-graft
##sys#bytevector? ##sys#make-vector ##sys#setter ##sys#car ##sys#cdr ##sys#pair?
##sys#eq? ##sys#list? ##sys#vector? ##sys#eqv? ##sys#get-keyword
@@ -835,7 +835,6 @@
(rewrite '##sys#foreign-pointer-argument 17 1 "C_i_foreign_pointer_argumentp")
(rewrite '##sys#foreign-ranged-integer-argument 17 2 "C_i_foreign_ranged_integer_argumentp")
(rewrite '##sys#foreign-unsigned-ranged-integer-argument 17 2 "C_i_foreign_unsigned_ranged_integer_argumentp")
-(rewrite '##sys#direct-return 17 2 "C_direct_return")
(rewrite 'blob-size 2 1 "C_block_size" #f)
Trap