From 60c461773f318c8cf3e8f187a3ca3b1b7d567a83 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Tue, 18 Feb 1992 22:57:25 +0000 Subject: [PATCH] Remove FLONUM-ASIN and FLONUM-ACOS from open-coded list of primitives. --- v7/src/compiler/machines/i386/machin.scm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/machines/i386/machin.scm b/v7/src/compiler/machines/i386/machin.scm index 5906d275c..934a90ebb 100644 --- a/v7/src/compiler/machines/i386/machin.scm +++ b/v7/src/compiler/machines/i386/machin.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/machin.scm,v 1.9 1992/02/17 22:37:34 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/machin.scm,v 1.10 1992/02/18 22:57:25 jinx Exp $ $MC68020-Header: /scheme/src/compiler/machines/bobcat/RCS/machin.scm,v 4.26 1991/10/25 06:49:34 cph Exp $ Copyright (c) 1992 Massachusetts Institute of Technology @@ -344,4 +344,7 @@ MIT in each case. |# true) (define compiler:primitives-with-no-open-coding - '(DIVIDE-FIXNUM GCD-FIXNUM &/)) \ No newline at end of file + '(DIVIDE-FIXNUM GCD-FIXNUM &/ + ;; The rewriting rules in rulrew.scm don't work. + ;; Treat as not available. + FLONUM-ASIN FLONUM-ACOS)) \ No newline at end of file -- 2.25.1