<=>, natural-sort words

cvs
Slava Pestov 2006-01-09 06:06:20 +00:00
parent 379a691a3d
commit 3b741625ec
1 changed files with 5 additions and 7 deletions

View File

@ -2,8 +2,9 @@
! See http://factor.sf.net/license.txt for BSD license.
IN: alien
USING: assembler compiler compiler-backend compiler-frontend
errors generic hashtables inference io kernel kernel-internals
lists math namespaces prettyprint sequences strings words parser ;
errors generic hashtables inference inspector io kernel
kernel-internals lists math namespaces parser prettyprint
sequences strings words ;
! USAGE:
!
@ -22,11 +23,8 @@ lists math namespaces prettyprint sequences strings words parser ;
TUPLE: alien-error library symbol ;
M: alien-error error. ( error -- )
"Words calling ``alien-invoke'' cannot run in the interpreter." print
"Compile this word and try again." print
"Library: " write dup alien-error-library .
"Symbol: " write alien-error-symbol . ;
M: alien-error summary ( error -- )
drop "Words calling ``alien-invoke'' cannot run in the interpreter. Compile the caller word and try again." ;
: alien-invoke ( ... return library function parameters -- ... )
#! Call a C library function.