~ 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