~ chicken-core (chicken-5) f73bbeeb053587a0a60f23ca26984c2e4b825c5e

commit f73bbeeb053587a0a60f23ca26984c2e4b825c5e
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Jul 13 21:22:55 2015 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Jul 13 21:22:55 2015 +0200

    dropped use of obsolete ##sys#direct-return

diff --git a/chicken.h b/chicken.h
index a0e3b461..2382525c 100644
--- a/chicken.h
+++ b/chicken.h
@@ -1228,8 +1228,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 0e1a5821..377c8826 100644
--- a/library.scm
+++ b/library.scm
@@ -1575,7 +1575,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)