Tweaked inlining of text? and version nickname.

doc/UserManual/libraries.txt

@@ -270,6 +270,7 @@ http://srfi.schemers.org/[SRFI] libraries:
  (srfi 145) ; assumptions
  (srfi 146) ; mappings
  (srfi 151) ; bitwise operations
+ (srfi 152) ; string library (reduced)
 
 [NOTE]
 ================================================================

src/Compiler/common.imp.sch

@@ -1814,14 +1814,14 @@
 ` ((_ larceny text? (text? obj0))
  (let ((x obj0))
  (and (structure? x)
- (eq? (.vector-ref:trusted (.vector-ref:trusted x 0) 0)
- larceny:text-rtd))))
+ (eq? (.vector-ref:trusted x 0)
+ larceny:text-inheritance-vector))))
 
 ` ((_ larceny text-length (text-length txt0))
  (let ((txt txt0))
  (.check! (structure? txt) ,$ex.tlen txt)
- (.check! (eq? (.vector-ref:trusted (.vector-ref:trusted txt 0) 0)
- larceny:text-rtd)
+ (.check! (eq? (.vector-ref:trusted txt 0)
+ larceny:text-inheritance-vector)
  ,$ex.tlen
  txt)
  (.fxrshl (.vector-ref:trusted txt 1) 7)))
@@ -1837,8 +1837,8 @@
  (let ((txt txt0)
  (i index0))
  (.check! (structure? txt) ,$ex.tlen txt)
- (.check! (eq? (.vector-ref:trusted (.vector-ref:trusted txt 0) 0)
- larceny:text-rtd)
+ (.check! (eq? (.vector-ref:trusted txt 0)
+ larceny:text-inheritance-vector)
  ,$ex.tlen
  txt)
  (.check! (.fixnum? i) ,$ex.tref txt i)

src/Lib/Common/text.sch

@@ -97,6 +97,11 @@
 (define larceny:the-empty-text
  (%new-text 0 0 (vector (make-bytevector 0))))
 
+;;; used by src/Compiler/common.imp.sch
+
+(define larceny:text-inheritance-vector
+ (vector-like-ref larceny:the-empty-text 0))
+
 ;;; text? is defined by the record definition above.
 
 (define (text-length txt)

src/Lib/Common/toplevel.sch

@@ -871,7 +871,8 @@
  ;; defined in text.sch but not exported by (scheme text)
 
  (environment-set! larc 'larceny:text-complain larceny:text-complain)
- (environment-set! larc 'larceny:text-rtd larceny:text-rtd)
+ (environment-set! larc 'larceny:text-inheritance-vector
+ larceny:text-inheritance-vector)
  (environment-set! larc '%new-text %new-text)
  (environment-set! larc 'larceny:text.k larceny:text.k)
  (environment-set! larc 'larceny:text.chunks larceny:text.chunks)

src/Rts/Sys/version.c

@@ -29,7 +29,7 @@
  * General Ripper 0.98b1 21 Oct 2011 fcbaf3b
  * 0.98 7 Mar 2015 60876f5
  * Goldie 0.99 25 May 2016 4671a1f
- * Grain Alcohol and Rainwater
+ * Grain Alcohol and Rainwater 1.3
  * Group Commander Mandrake
  * Hair Mussed
  * Hi There!
@@ -71,8 +71,8 @@
 
 int larceny_major_version = 1;
 int larceny_minor_version = 3;
-/* char *larceny_version_qualifier = " \"Grain Alcohol and Rainwater\""; */
-char *larceny_version_qualifier = "b6";
+char *larceny_version_qualifier = " \"Grain Alcohol and Rainwater\"";
+/* char *larceny_version_qualifier = "b6"; */
 
 char *date = DATE " " TIME;
 char *user = USER;