46 lines
1.2 KiB
Factor
46 lines
1.2 KiB
Factor
! Copyright (C) 2008 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: kernel classes.tuple classes.tuple.private math arrays
|
|
byte-arrays words stack-checker.known-words ;
|
|
IN: compiler.intrinsics
|
|
|
|
ERROR: missing-intrinsic ;
|
|
|
|
: (tuple) ( n -- tuple ) missing-intrinsic ;
|
|
|
|
\ (tuple) { tuple-layout } { tuple } define-primitive
|
|
\ (tuple) make-flushable
|
|
|
|
: (array) ( n -- array ) missing-intrinsic ;
|
|
|
|
\ (array) { integer } { array } define-primitive
|
|
\ (array) make-flushable
|
|
|
|
: (byte-array) ( n -- byte-array ) missing-intrinsic ;
|
|
|
|
\ (byte-array) { integer } { byte-array } define-primitive
|
|
\ (byte-array) make-flushable
|
|
|
|
: (ratio) ( -- ratio ) missing-intrinsic ;
|
|
|
|
\ (ratio) { } { ratio } define-primitive
|
|
\ (ratio) make-flushable
|
|
|
|
: (complex) ( -- complex ) missing-intrinsic ;
|
|
|
|
\ (complex) { } { complex } define-primitive
|
|
\ (complex) make-flushable
|
|
|
|
: (wrapper) ( -- wrapper ) missing-intrinsic ;
|
|
|
|
\ (wrapper) { } { wrapper } define-primitive
|
|
\ (wrapper) make-flushable
|
|
|
|
: (set-slot) ( val obj n -- ) missing-intrinsic ;
|
|
|
|
\ (set-slot) { object object fixnum } { } define-primitive
|
|
|
|
: (write-barrier) ( obj -- ) missing-intrinsic ;
|
|
|
|
\ (write-barrier) { object } { } define-primitive
|