From 246ee2e48fa40b7534e294f219f99688a3c823eb Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sun, 13 Aug 2023 22:59:29 -0500
Subject: Update extras

---
 chicanery.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'chicanery.scm')

diff --git a/chicanery.scm b/chicanery.scm
index 12f5ab3..0fc71e4 100644
--- a/chicanery.scm
+++ b/chicanery.scm
@@ -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?
-- 
cgit 1.4.1-21-gabe81