From fd5f104f287427fee885583bc398c137674e6af0 Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Fri, 3 Mar 2017 00:56:40 -0800
Subject: New upstream version 5f2

---
 hobbit.scm | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)
 mode change 100644 => 100755 hobbit.scm

(limited to 'hobbit.scm')

diff --git a/hobbit.scm b/hobbit.scm
old mode 100644
new mode 100755
index 1c0fa61..4e7d241
--- a/hobbit.scm
+++ b/hobbit.scm
@@ -199,6 +199,7 @@
     case enum register typedef char extern return union
     const float short unsigned continue for signed void
     default goto sizeof volatile do if static while
+    system random exit			; Added by M.Ward
 
 ;;; Some things are commented out to make hobbit compile itself correctly.
 
@@ -242,12 +243,12 @@
  resizuve cons2r lnot booleanp eq equal consp cons nullp
  setcar setcdr listp list length append reverse list-ref memq memv
  member assq assv assoc symbolp symbol2string string2symbol numberp exactp
- inexactp eqp lessp zerop positivep negativep oddp evenp lmax lmin sum
+ inexactp eqp lessp zerop positivep negativep oddp evenp scm_max scm_min sum
  product difference lquotient scm_abs remainder lremainder modulo lgcd llcm
  number2string
 ;;; string2number
  makdbl istr2flo mkbig long2big dbl2big
- iint2str iflo2str floprint bigprint big2dbl charp char-lessp chci-eq
+ ilong2str iflo2str floprint bigprint int2dbl charp char-lessp chci-eq
  chci-lessp char-alphap char-nump char-whitep char-upperp char-lowerp
  char2int int2char char-upcase char-downcase stringp make-string
  string st-length st-ref st-set st-equal stci-equal st-lessp
@@ -260,7 +261,7 @@
  cur-input-port cur-output-port open-file open-pipe close-port
  close-pipe read-char peek-char eof-objectp scm_write scm_display
  scm_newline scm_write-char
- file-position file-set-position scm_file-position lgetenv prog-args
+ file-position file-set-position scm_file-position scm_getenv prog-args
  makacro makmacro makmmacro
  remove ash round array-ref array_ref
  sin cos tan asin acos atan sinh cosh tanh asinh acosh atanh sqrt expt
@@ -451,6 +452,7 @@
     (#\. "_dot_")
     (#\* "_star_")
     (#\/ "_slash_")
+    (#\\ "_backsl_"); Added by M.Ward:
     (#\< "_less_")
     (#\= "_equal_")
     (#\> "_grtr_")
@@ -1635,6 +1637,7 @@
 		(list 'lambda
 		      '()
 		      (list* 'let* '()
+			     '(set! no-symhash-gc #t)
 			     (map list
 				  (reverse *splitted-init-function-names*))))))
 
@@ -2494,7 +2497,7 @@
      (@copy-tree "copytree" 1)
 
      (exact? "exactp" 1) (inexact? "inexactp" 1)
-     (odd? "oddp" 1) (even? "evenp" 1) (max "lmax" 2) (min "lmin" 2) (abs "scm_abs" 1)
+     (odd? "oddp" 1) (even? "evenp" 1) (max "scm_max" 2) (min "scm_min" 2) (abs "scm_abs" 1)
      (quotient "lquotient" 2) (remainder "lremainder" 2)
      (modulo "modulo" 2) (gcd "lgcd" 2) (lcm "llcm" 2)
 
-- 
cgit v1.2.3