diff --git a/library/tools/listener.factor b/library/tools/listener.factor index 1373a7b5a1..6402185939 100644 --- a/library/tools/listener.factor +++ b/library/tools/listener.factor @@ -15,7 +15,7 @@ SYMBOL: error-hook [ drop terpri debug-help ] error-hook set-global : bye ( -- ) quit-flag on ; -help + : (read-multiline) ( quot depth -- quot ? ) >r readln dup [ (parse) depth r> dup >r <= [ diff --git a/native/error.h b/native/error.h index 88d1b84b7d..1f12c67781 100644 --- a/native/error.h +++ b/native/error.h @@ -1,22 +1,22 @@ typedef enum { - ERROR_EXPIRED - ERROR_IO - ERROR_UNDEFINED_WORD - ERROR_TYPE - ERROR_SIGNAL - ERROR_NEGATIVE_ARRAY_SIZE - ERROR_C_STRING - ERROR_FFI - ERROR_HEAP_SCAN - ERROR_UNDEFINED_SYMBOL - ERROR_USER_INTERRUPT - ERROR_DS_UNDERFLOW - ERROR_DS_OVERFLOW - ERROR_RS_UNDERFLOW - ERROR_RS_OVERFLOW - ERROR_CS_UNDERFLOW - ERROR_CS_OVERFLOW + ERROR_EXPIRED, + ERROR_IO, + ERROR_UNDEFINED_WORD, + ERROR_TYPE, + ERROR_SIGNAL, + ERROR_NEGATIVE_ARRAY_SIZE, + ERROR_C_STRING, + ERROR_FFI, + ERROR_HEAP_SCAN, + ERROR_UNDEFINED_SYMBOL, + ERROR_USER_INTERRUPT, + ERROR_DS_UNDERFLOW, + ERROR_DS_OVERFLOW, + ERROR_RS_UNDERFLOW, + ERROR_RS_OVERFLOW, + ERROR_CS_UNDERFLOW, + ERROR_CS_OVERFLOW, ERROR_OBJECTIVE_C } F_ERRORTYPE;