Skip to content

Commit

Permalink
bootstrap: update
Browse files Browse the repository at this point in the history
  • Loading branch information
@vyzo
vyzo committed May 17, 2017
1 parent 1ac22fe commit 6e609c9
Show file tree
Hide file tree
Showing 40 changed files with 23,534 additions and 23,205 deletions.
20 changes: 10 additions & 10 deletions src/bootstrap/gerbil/compiler/base__0.scm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -15,8 +15,8 @@
(make-struct-type 'gxc#symbol-table::t '#f '2 'symbol-table '() ':init!))
(define gxc#symbol-table? (make-struct-predicate gxc#symbol-table::t))
(define gxc#make-symbol-table
(lambda _$args599_
(apply make-struct-instance gxc#symbol-table::t _$args599_)))
(lambda _$args675_
(apply make-struct-instance gxc#symbol-table::t _$args675_)))
(define gxc#symbol-table-gensyms
(make-struct-field-accessor gxc#symbol-table::t '0))
(define gxc#symbol-table-bindings
Expand All @@ -26,19 +26,19 @@
(define gxc#symbol-table-bindings-set!
(make-struct-field-mutator gxc#symbol-table::t '1))
(define gxc#symbol-table:::init!
(lambda (_self597_)
(lambda (_self673_)
(direct-struct-instance-init!
_self597_
_self673_
(make-hash-table-eq)
(make-hash-table-eq))))
(bind-method! gxc#symbol-table::t ':init! gxc#symbol-table:::init! '#f)
(define gxc#raise-compile-error
(lambda (_message593_ _stx594_ . _details595_)
(lambda (_message669_ _stx670_ . _details671_)
(apply gx#raise-syntax-error
'compile
_message593_
_stx594_
_details595_)))
_message669_
_stx670_
_details671_)))
(define gxc#verbose
(lambda _args591_
(if (gxc#current-compile-verbose) (apply displayln _args591_) '#!void))))
(lambda _args667_
(if (gxc#current-compile-verbose) (apply displayln _args667_) '#!void))))
338 changes: 169 additions & 169 deletions src/bootstrap/gerbil/compiler/base__1.scm
View file

Large diffs are not rendered by default.

30 changes: 15 additions & 15 deletions src/bootstrap/gerbil/compiler/compile.ssi
View file
Original file line number Diff line number Diff line change
Expand Up @@ -9,16 +9,16 @@ namespace: gxc
(in: :gerbil/core <syntax-sugar>)
(spec:
(:gerbil/gambit/hvectors)
(0 u64vector? 0 u64vector?)
(0 s64vector? 0 s64vector?)
(0 s8vector? 0 s8vector?)
(0 f32vector? 0 f32vector?)
(0 f64vector? 0 f64vector?)
(0 u16vector? 0 u16vector?)
(0 s32vector? 0 s32vector?)
(0 f32vector? 0 f32vector?)
(0 s64vector? 0 s64vector?)
(0 u8vector? 0 u8vector?)
(0 u32vector? 0 u32vector?)
(0 u64vector? 0 u64vector?)
(0 s32vector? 0 s32vector?)
(0 s16vector? 0 s16vector?)
(0 u32vector? 0 u32vector?)))
(0 u16vector? 0 u16vector?)
(0 s8vector? 0 s8vector?)))
(%#export #t)
(%#define-runtime current-compile-methods gxc#current-compile-methods)
(%#define-runtime current-compile-lift gxc#current-compile-lift)
Expand Down Expand Up @@ -84,8 +84,8 @@ namespace: gxc
generate-runtime-binding-id*
gxc#generate-runtime-binding-id*)
(%#begin (%#define-runtime
generate-runtime-gensym-reference__opt-lambda8238
gxc#generate-runtime-gensym-reference__opt-lambda8238)
generate-runtime-gensym-reference__opt-lambda8941
gxc#generate-runtime-gensym-reference__opt-lambda8941)
(%#begin (%#define-runtime
generate-runtime-gensym-reference__0
gxc#generate-runtime-gensym-reference__0)
Expand All @@ -99,8 +99,8 @@ namespace: gxc
generate-runtime-identifier-key
gxc#generate-runtime-identifier-key)
(%#begin (%#define-runtime
generate-runtime-temporary__opt-lambda8184
gxc#generate-runtime-temporary__opt-lambda8184)
generate-runtime-temporary__opt-lambda8887
gxc#generate-runtime-temporary__opt-lambda8887)
(%#begin (%#define-runtime
generate-runtime-temporary__0
gxc#generate-runtime-temporary__0)
Expand Down Expand Up @@ -131,8 +131,8 @@ namespace: gxc
generate-runtime-case-lambda%
gxc#generate-runtime-case-lambda%)
(%#begin (%#define-runtime
generate-runtime-let-values%__opt-lambda5927
gxc#generate-runtime-let-values%__opt-lambda5927)
generate-runtime-let-values%__opt-lambda6630
gxc#generate-runtime-let-values%__opt-lambda6630)
(%#begin (%#define-runtime
generate-runtime-let-values%__0
gxc#generate-runtime-let-values%__0)
Expand All @@ -143,8 +143,8 @@ namespace: gxc
generate-runtime-let-values-bind
gxc#generate-runtime-let-values-bind)
(%#begin (%#define-runtime
generate-runtime-letrec-values%__opt-lambda5506
gxc#generate-runtime-letrec-values%__opt-lambda5506)
generate-runtime-letrec-values%__opt-lambda6209
gxc#generate-runtime-letrec-values%__opt-lambda6209)
(%#begin (%#define-runtime
generate-runtime-letrec-values%__0
gxc#generate-runtime-letrec-values%__0)
Expand Down
8 changes: 4 additions & 4 deletions src/bootstrap/gerbil/compiler/compile.ssxi.ss
View file
Original file line number Diff line number Diff line change
Expand Up @@ -6,22 +6,22 @@ package: gerbil/compiler
gxc#generate-runtime-gensym-reference
(@case-lambda
(1 gxc#generate-runtime-gensym-reference__0)
(2 gxc#generate-runtime-gensym-reference__opt-lambda8238)))
(2 gxc#generate-runtime-gensym-reference__opt-lambda8941)))
(declare-type
gxc#generate-runtime-temporary
(@case-lambda
(0 gxc#generate-runtime-temporary__0)
(1 gxc#generate-runtime-temporary__opt-lambda8184)))
(1 gxc#generate-runtime-temporary__opt-lambda8887)))
(declare-type
gxc#generate-runtime-let-values%
(@case-lambda
(1 gxc#generate-runtime-let-values%__0)
(2 gxc#generate-runtime-let-values%__opt-lambda5927)))
(2 gxc#generate-runtime-let-values%__opt-lambda6630)))
(declare-type
gxc#generate-runtime-letrec-values%
(@case-lambda
(1 gxc#generate-runtime-letrec-values%__0)
(2 gxc#generate-runtime-letrec-values%__opt-lambda5506)))
(2 gxc#generate-runtime-letrec-values%__opt-lambda6209)))
(declare-type
gxc#meta-state::t
(@struct-type gxc#meta-state::t #f 4 :init! ()))
Expand Down
Loading

0 comments on commit 6e609c9

Please sign in to comment.