From 50eb784bfcf15ee3c6b0b53d747db92673395040 Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:34 -0800
Subject: Import Upstream version 5e3

---
 hobbit.scm | 30 ++++++++++++++++++++++--------
 1 file changed, 22 insertions(+), 8 deletions(-)

(limited to 'hobbit.scm')

diff --git a/hobbit.scm b/hobbit.scm
index 006719b..5505bf1 100644
--- a/hobbit.scm
+++ b/hobbit.scm
@@ -209,7 +209,9 @@
  tcs-cons-imcar tcs-cons-nimcar tcs-cons-gloc tcs-closures tcs-subrs
  tc7-asubr tcs-symbols tc7-ssymbol tcs-bignums tc16-bigpos tc3-cons
  tc3-cons-gloc tc3-closure tc7-ssymbol tc7-msymbol tc7-string
- tc7-vector tc7-bvect tc7-ivect tc7-uvect tc7-fvect tc7-dvect tc7-cvect
+ tc7-vector tc7-Vbool
+ tc7-VfixZ32 tc7-VfixN32 tc7-VfixZ16 tc7-VfixN16 tc7-VfixZ8 tc7-VfixN8
+ tc7-VfloR32 tc7-VfloC32 tc7-VfloR64 tc7-VfloC64
  tc7-contin tc7-cclo tc7-asubr
 ;;; tc7-subr-0 tc7-subr-1
  tc7-cxr
@@ -2382,7 +2384,7 @@
 	  atanh sqrt expt integer-expt))
 
 (define *interpreter-defined-vars* '())
-;; '(*features*
+;; '(slib:features
 ;;    most-positive-fixnum  most-negative-fixnum))
 
 ;; defs in *extra-hobbit-primitive-defs* are used when the extra primitive
@@ -2507,6 +2509,13 @@
      ($atanh "ATANH_FUN" 1)
      ($sqrt "SQRT_FUN" 1) ($expt "EXPT_FUN" 2)
      ($log "LOG_FUN" 1) ($abs "ABS_FUN" 1) ($exp "EXP_FUN" 1)
+     (real-sin "SIN_FUN" 1) (real-cos "COS_FUN" 1) (real-tan "TAN_FUN" 1)
+     (real-asin "ASIN_FUN" 1) (real-acos "ACOS_FUN" 1) (real-atan "ATAN_FUN" 1)
+     (real-sinh "SINH_FUN" 1) (real-cosh "COSH_FUN" 1)
+     (real-tanh "TANH_FUN" 1) (real-asinh "ASINH_FUN" 1) (real-acosh "ACOSH_FUN" 1)
+     (real-atanh "ATANH_FUN" 1)
+     (real-sqrt "SQRT_FUN" 1) (real-expt "EXPT_FUN" 2)
+     (real-ln "LOG_FUN" 1) (real-exp "EXP_FUN" 1)
 
      (inexact->exact "in2ex" 1)
      (make-rectangular "makrect" 2) (make-polar "makpolar" 2)
@@ -6028,13 +6037,18 @@
 	     #f))
         (else #f)))
 
-
 (define *float-recognize-ops*
-  '($sin $cos $tan $asin $acos $atan $sinh $cosh $tanh $asinh $tanh
-	 $asinh $acosh $atanh $sqrt $expt $log $abs $exp
-	 sin cos tan asin acos atan sinh cosh tanh asinh tanh
-	 asinh acosh atanh))
-
+  '(ln sqrt log exp
+       sin cos tan asin acos atan
+       sinh cosh tanh asinh acosh atanh
+       real-sin real-cos real-tan
+       real-asin real-acos real-atan
+       real-sinh real-cosh real-tanh
+       real-asinh real-acosh real-atanh
+       real-sqrt real-expt real-ln real-exp
+       $sin $cos $tan $asin $acos $atan
+       $sinh $cosh $tanh $asinh $acosh $atanh
+       $sqrt $expt $log $abs $exp))
 
 (define *check-redefining-passed* '())
 
-- 
cgit v1.2.3