Recompile boostrap for v0.18 release

Compiled with v0.18-rc1.

Log:
vyzo@dellicious:~/gerbil/src$ date
Thu Oct 12 04:28:02 PM EEST 2023
vyzo@dellicious:~/gerbil/src$ rm -rf bootstrap
vyzo@dellicious:~/gerbil/src$ mkdir bootstrap
vyzo@dellicious:~/gerbil/src$ mkdir bootstrap/gerbil
vyzo@dellicious:~/gerbil/src$ cp gerbil/prelude/core.ssxi.ss bootstrap/gerbil
vyzo@dellicious:~/gerbil/src$ gxc -d bootstrap -s -S -O gerbil/runtime/{gambit,system,util,loader,control,mop,error,thread,syntax,eval,repl,init}.ss gerbil/runtime.ss
vyzo@dellicious:~/gerbil/src$ gxc -d bootstrap -s -S -O -no-ssxi gerbil/prelude/core.ss
vyzo@dellicious:~/gerbil/src$ gxc -d bootstrap -s -S gerbil/prelude/gambit.ss
vyzo@dellicious:~/gerbil/src$ gxc -d bootstrap -s -S -O gerbil/expander/{common,stx,core,top,module,compile,root,stxcase}.ss gerbil/expander.ss
vyzo@dellicious:~/gerbil/src$ gxc  -d bootstrap -s -S -O gerbil/compiler/{base,compile,optimize-base,optimize-xform,optimize-top,optimize-spec,optimize-ann,optimize-call,optimize,driver,ssxi}.ss gerbil/compiler.ss
vyzo@dellicious:~/gerbil/src$ gerbil -v
Gerbil v0.18-rc1 on Gambit v4.9.5-40-g24201248

src/bootstrap/gerbil/compiler/base__0.scm

@@ -1,6 +1,6 @@
 (declare (block) (standard-bindings) (extended-bindings))
 (begin
-  (define gerbil/compiler/base::timestamp 1696542255)
+  (define gerbil/compiler/base::timestamp 1697117338)
   (begin
     (define gxc#current-compile-symbol-table (make-parameter '#f))
     (define gxc#current-compile-runtime-sections (make-parameter '#f))

src/bootstrap/gerbil/compiler/compile.ssi

@@ -9,16 +9,16 @@ namespace: gxc
           (in: :gerbil/core <syntax-sugar>)
           (spec:
            (:gerbil/gambit)
-           (0 u32vector? 0 u32vector?)
-           (0 u64vector? 0 u64vector?)
-           (0 u16vector? 0 u16vector?)
+           (0 f32vector? 0 f32vector?)
            (0 f64vector? 0 f64vector?)
+           (0 s64vector? 0 s64vector?)
            (0 s8vector? 0 s8vector?)
            (0 s32vector? 0 s32vector?)
-           (0 s64vector? 0 s64vector?)
+           (0 u64vector? 0 u64vector?)
+           (0 u32vector? 0 u32vector?)
+           (0 u16vector? 0 u16vector?)
            (0 s16vector? 0 s16vector?)
-           (0 u8vector? 0 u8vector?)
-           (0 f32vector? 0 f32vector?)))
+           (0 u8vector? 0 u8vector?)))
          (%#export #t)
          (%#define-runtime gambit-annotations gxc#gambit-annotations)
          (%#define-runtime current-compile-methods gxc#current-compile-methods)

src/bootstrap/gerbil/compiler/compile__0.scm

@@ -1,6 +1,6 @@
 (declare (block) (standard-bindings) (extended-bindings))
 (begin
-  (define gerbil/compiler/compile::timestamp 1696542255)
+  (define gerbil/compiler/compile::timestamp 1697117338)
   (begin
     (define gxc#_g18463_
       (gx#core-deserialize-mark

src/bootstrap/gerbil/compiler/driver__0.scm

@@ -1,6 +1,6 @@
 (declare (block) (standard-bindings) (extended-bindings))
 (begin
-  (define gerbil/compiler/driver::timestamp 1696542260)
+  (define gerbil/compiler/driver::timestamp 1697117343)
   (begin
     (define gxc#default-gerbil-gsc
       (path-expand '"gsc" (path-expand '"bin" (path-expand '"~~"))))

src/bootstrap/gerbil/compiler/optimize-ann__0.scm

@@ -1,6 +1,6 @@
 (declare (block) (standard-bindings) (extended-bindings))
 (begin
-  (define gerbil/compiler/optimize-ann::timestamp 1696542259)
+  (define gerbil/compiler/optimize-ann::timestamp 1697117342)
   (begin
     (declare (inlining-limit 200))
     (define gxc#&optmize-annotated

src/bootstrap/gerbil/compiler/optimize-base__0.scm

@@ -1,6 +1,6 @@
 (declare (block) (standard-bindings) (extended-bindings))
 (begin
-  (define gerbil/compiler/optimize-base::timestamp 1696542255)
+  (define gerbil/compiler/optimize-base::timestamp 1697117338)
   (begin
     (define gxc#current-compile-optimizer-info (make-parameter '#f))
     (define gxc#current-compile-mutators (make-parameter '#f))

src/bootstrap/gerbil/compiler/optimize-call__0.scm

@@ -1,6 +1,6 @@
 (declare (block) (standard-bindings) (extended-bindings))
 (begin
-  (define gerbil/compiler/optimize-call::timestamp 1696542260)
+  (define gerbil/compiler/optimize-call::timestamp 1697117343)
   (begin
     (define gxc#&optimize-call
       (make-promise

src/bootstrap/gerbil/compiler/optimize-spec__0.scm

@@ -1,6 +1,6 @@
 (declare (block) (standard-bindings) (extended-bindings))
 (begin
-  (define gerbil/compiler/optimize-spec::timestamp 1696542257)
+  (define gerbil/compiler/optimize-spec::timestamp 1697117340)
   (begin
     (define gxc#&generate-method-specializers
       (make-promise

src/bootstrap/gerbil/compiler/optimize-top__0.scm

@@ -1,6 +1,6 @@
 (declare (block) (standard-bindings) (extended-bindings))
 (begin
-  (define gerbil/compiler/optimize-top::timestamp 1696542256)
+  (define gerbil/compiler/optimize-top::timestamp 1697117339)
   (begin
     (define gxc#&collect-top-level-type-info
       (make-promise

src/bootstrap/gerbil/compiler/optimize-xform__0.scm

@@ -1,6 +1,6 @@
 (declare (block) (standard-bindings) (extended-bindings))
 (begin
-  (define gerbil/compiler/optimize-xform::timestamp 1696542255)
+  (define gerbil/compiler/optimize-xform::timestamp 1697117339)
   (begin
     (define gxc#&identity-expression
       (make-promise

src/bootstrap/gerbil/compiler/optimize__0.scm

@@ -1,6 +1,6 @@
 (declare (block) (standard-bindings) (extended-bindings))
 (begin
-  (define gerbil/compiler/optimize::timestamp 1696542260)
+  (define gerbil/compiler/optimize::timestamp 1697117343)
   (begin
     (define gxc#optimizer-info-init!
       (lambda ()

src/bootstrap/gerbil/core.ssi

@@ -384,10 +384,13 @@ namespace: gerbil/core
                     (make-symbol make-symbol)
                     (make-uninterned-symbol make-uninterned-symbol)
                     (symbol-hash symbol-hash)
+                    (as-string as-string)
+                    (display-as-string display-as-string)
                     (keyword? keyword?)
                     (uninterned-keyword? uninterned-keyword?)
                     (interned-keyword? interned-keyword?)
                     (keyword-hash keyword-hash)
+                    (make-keyword make-keyword)
                     (string-map string-map)
                     (string-for-each string-for-each)
                     (string-copy string-copy)