Update extras

1 files changed, 3 insertions, 3 deletions

@@ -20,7 +20,7 @@
   (import (scheme time))
   (import (scheme write))
   (import utf8)
-  (export * + - / <= < >= = > abs and append apply assoc assq assv begin
+  (export * + - / <= < >= = > abs and #;append apply assoc assq assv begin
           binary-port? boolean? boolean=? bytevector bytevector-append
           bytevector-copy bytevector-copy! bytevector-length bytevector-u8-ref
           bytevector-u8-set! bytevector? car cdr caar cadr cdar cddr
@@ -34,13 +34,13 @@
           error-object-message error-object? even? odd? exact inexact
           exact-integer-sqrt exact-integer? exact? inexact? exp expt features
           file-error? floor floor/ floor-quotient floor-remainder
-          flush-output-port for-each gcd lcm get-output-bytevector
+          flush-output-port #;for-each gcd lcm get-output-bytevector
           get-output-string guard if import import-for-syntax include include-ci
           input-port-open? output-port-open? input-port? output-port? integer?
           lambda length let let* letrec letrec* let-values let*-values let-syntax
           letrec-syntax list list-copy list-ref list-set! list-tail list?
           list->vector make-bytevector make-list make-parameter make-string
-          make-vector map max min member memq memv modulo remainder negative?
+          make-vector #;map max min member memq memv modulo remainder negative?
           positive? newline not null? number->string string->number number?
           open-input-bytevector open-output-bytevector open-input-string
           open-output-string or pair? parameterize peek-char peek-u8 port?