Skip to content
Snippets Groups Projects
Commit 02a66783 authored by ram's avatar ram
Browse files

Flushed NUMERATOR, DENOMINATOR, REALPART and IMAGPART, since these are now

open-coded.
parent 92748db3
No related branches found
No related tags found
No related merge requests found
......@@ -45,7 +45,6 @@ implementations, since they are accessed through %primitive.
(define-miscop collect-garbage () :results ())
(define-miscop current-binding-pointer ())
(define-miscop current-stack-pointer ())
(define-miscop denominator (n))
(define-miscop dynamic-space-in-use ())
(define-miscop error0 (code) :results ())
(define-miscop error1 (code x) :results ())
......@@ -67,7 +66,6 @@ implementations, since they are accessed through %primitive.
(define-miscop header-ref (x i))
(define-miscop header-set (x i v))
|#
(define-miscop imagpart (z))
(define-miscop logdpb (v s p n))
(define-miscop logldb (s p n))
(define-miscop long-float-ref (l i))
......@@ -78,12 +76,10 @@ implementations, since they are accessed through %primitive.
(define-miscop make-ratio (num den))
(define-miscop negate (n))
(define-miscop newspace-bit ())
(define-miscop numerator (n))
(define-miscop pointer-system-set (s i p))
(define-miscop purify () :results ())
(define-miscop read-binding-stack (b))
(define-miscop read-control-stack (f))
(define-miscop realpart (z))
(define-miscop reset-c-stack (sp) :results ())
(define-miscop return-to-c (sp value) :results ())
(define-miscop sap-system-ref (s i))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment