steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

<=>, 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
library/alien/compiler.factor
View File

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