Minor tweaks

slava 2006-08-07 00:31:52 +00:00
parent 5a8bd7b3c6
commit b0b6da4f86
2 changed files with 3 additions and 2 deletions

View File

@ -199,7 +199,8 @@ M: read1-task task-container drop read-tasks get-global ;
] when pending-error ;
M: input-port stream-read1 ( stream -- char/f )
dup wait-to-read1 dup port-eof? [ drop f ] [ buffer-pop ] if ;
dup wait-to-read1
dup port-eof? [ drop f ] [ buffer-pop ] if ;
! Reading character counts
: read-step ( count reader -- ? )

View File

@ -72,8 +72,8 @@ catch_exception_raise (mach_port_t exception_port,
save_thread_state = thread_state;
SIGSEGV_PROGRAM_COUNTER (thread_state) = (unsigned long) terminating_handler;
pass_arg0(&thread_state,SIGSEGV_EXC_STATE_FAULT(exc_state));
SIGSEGV_STACK_POINTER (thread_state) = fix_stack_ptr(sp);
pass_arg0(&thread_state,SIGSEGV_EXC_STATE_FAULT(exc_state));
/* See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/thread_set_state.html. */
if (thread_set_state (thread, SIGSEGV_THREAD_STATE_FLAVOR,