From 3d55e7c3cf228271ddc25203cad64fbdcba9342a Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Sun, 13 Aug 2023 22:49:03 -0500 Subject: I don't even know any more --- impl/guile.scm | 76 ---------------------------------------------------------- 1 file changed, 76 deletions(-) delete mode 100644 impl/guile.scm (limited to 'impl/guile.scm') diff --git a/impl/guile.scm b/impl/guile.scm deleted file mode 100644 index 6bd5387..0000000 --- a/impl/guile.scm +++ /dev/null @@ -1,76 +0,0 @@ -;;; chicanery/impl/guile.scm -*- geiser-scheme-implementation: guile -*- - -;; XXX : Apparently this doesn't work. I don't know. - -(define-module (chicanery)) - -(use-modules (scheme base) - (scheme case-lambda) - (scheme char) - (scheme complex) - (scheme cxr) - (scheme eval) - (scheme file) - (scheme inexact) - (scheme lazy) - (scheme load) - (scheme process-context) - (scheme read) - (scheme repl) - (scheme time) - (scheme write)) - -(export! * + - / < <= = > >= abs acos and angle #;append apply asin - assoc assq assv atan begin binary-port? boolean=? boolean? bytevector - bytevector-append bytevector-copy bytevector-copy! bytevector-length - bytevector-u8-ref bytevector-u8-set! bytevector? caaaar caaadr caaar - caadar caaddr caadr caar cadaar cadadr cadar caddar cadddr caddr cadr - call-with-current-continuation call-with-input-file - call-with-output-file call-with-port call-with-values call/cc car - case case-lambda cdaaar cdaadr cdaar cdadar cdaddr cdadr cdar cddaar - cddadr cddar cdddar cddddr cdddr cddr cdr ceiling char->integer - char-alphabetic? char-ci<=? char-ci=? - char-ci>? char-downcase char-foldcase char-lower-case? char-numeric? - char-ready? char-upcase char-upper-case? char-whitespace? char<=? - char=? char>? char? close-input-port close-output-port - close-port command-line complex? cond cond-expand cons cos - current-error-port current-input-port current-jiffy - current-output-port current-second define define-record-type - define-syntax define-values delay delay-force delete-file denominator - digit-value display do dynamic-wind emergency-exit environment - eof-object eof-object? eq? equal? eqv? error error-object-irritants - error-object-message error-object? eval even? exact - exact-integer-sqrt exact-integer? exact? exit exp expt features - file-error? file-exists? finite? floor floor-quotient - floor-remainder floor/ flush-output-port #;for-each force gcd - get-environment-variable get-environment-variables - get-output-bytevector get-output-string guard if imag-part import - include include-ci inexact inexact? infinite? input-port-open? - input-port? integer->char integer? interaction-environment - jiffies-per-second lambda lcm length let let* let*-values let-syntax - let-values letrec letrec* letrec-syntax list list->string magnitude - make-bytevector make-list make-parameter make-polar make-promise - make-rectangular make-string make-vector #;map max member memq memv min - modulo negative? newline not null? number->string number? numerator - odd? open-binary-input-file open-binary-output-file - open-input-bytevector open-input-file open-input-string - open-output-bytevector open-output-file open-output-string or - output-port-open? output-port? pair? parameterize peek-char peek-u8 - port? positive? procedure? promise? quasiquote quote quotient raise - raise-continuable rational? rationalize read read-bytevector - read-bytevector! read-char read-error? read-line read-string read-u8 - real-part real? remainder reverse round set! set-car! set-cdr! sin - sqrt square string string->list string->number string->symbol - string->utf8 string->vector string-append string-ci<=? string-ci=? string-ci>? string-copy string-copy! - string-downcase string-fill! string-foldcase string-for-each - string-length string-map string-ref string-set! string-upcase - string<=? string=? string>? string? substring - symbol->string symbol=? symbol? syntax-error syntax-rules tan - textual-port? truncate truncate-quotient truncate-remainder - truncate/ u8-ready? unless unquote unquote-splicing utf8->string - values vector vector->list vector->string vector-append vector-copy - vector-copy! vector-fill! vector-for-each vector-length vector-map - vector-ref vector-set! vector? when with-exception-handler - with-input-from-file with-output-to-file write write-bytevector - write-char write-shared write-simple write-string write-u8 zero?) -- cgit 1.4.1-21-gabe81