~ chicken-core (chicken-5) 3cb590644ebd1c12f0cfae5d46de401291f61026

commit 3cb590644ebd1c12f0cfae5d46de401291f61026
Author:     Peter Bex <peter@more-magic.net>
AuthorDate: Sat Aug 22 17:52:00 2015 +0200
Commit:     Peter Bex <peter@more-magic.net>
CommitDate: Sat Aug 22 19:37:25 2015 +0200

    dropped use of obsolete ##sys#direct-return

diff --git a/chicken.h b/chicken.h
index ec2fa708..7ea016cf 100644
--- a/chicken.h
+++ b/chicken.h
@@ -1298,8 +1298,6 @@ typedef void (C_ccall *C_proc)(C_word, C_word *) C_noret;
 #define C_copy_pointer(from, to)        (C_set_block_item(to, 0, C_block_item(from, 0)), C_SCHEME_UNDEFINED)
 #define C_pointer_to_object(ptr)        C_block_item(ptr, 0)
 
-#define C_direct_return(dk, x)          (C_kontinue(dk, x), C_SCHEME_UNDEFINED)
-
 #ifdef C_SIXTY_FOUR
 # define C_poke_integer_32(x, i, n)     (((C_s32 *)C_data_pointer(x))[ C_unfix(i) ] = C_unfix(n), C_SCHEME_UNDEFINED)
 #else
diff --git a/library.scm b/library.scm
index 4c61c9db..bb49d8ba 100644
--- a/library.scm
+++ b/library.scm
@@ -2339,7 +2339,6 @@ EOF
 (define ##sys#call-with-current-continuation (##core#primitive "C_call_cc"))
 (define (##sys#call-with-direct-continuation k) (##core#app k (##core#inline "C_direct_continuation" #f)))
 (define ##sys#call-with-cthulhu (##core#primitive "C_call_with_cthulhu"))
-(define (##sys#direct-return dk x) (##core#inline "C_direct_return" dk x))
 (define values (##core#primitive "C_values"))
 (define call-with-values (##core#primitive "C_call_with_values"))
 (define ##sys#call-with-values call-with-values)