Import Upstream version 5e3upstream/5e3

1 files changed, 22 insertions, 8 deletions

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* '())