gambiteer

(define basic-expt
  (let ((global-exponent-table
         (make-table weak-keys: #t weak-values: #t test: eq?)))
    
    ;; x is a computable real
    ;; n is an exact integer
    
    (define (global-return x closure)
      (table-set! global-exponent-table x closure)
      closure)    

gambiteer

(declare
  (standard-bindings)
  (extended-bindings)
  (block)
  (not inline) ;; inlining distorts what I want to measure
  (safe)       ;; default declaration, made explicit
  )

(import (srfi 231))

gambiteer

(declare (standard-bindings)(extended-bindings)(block)(fixnum)(not safe))

;;; From Text-File Databases at https://sites.google.com/site/schemephil/

;;; READ-CSV-RECORD [SEP] [PORT]

(define (read-csv-record . args)
  
    (define (add-char-to-field c field)
      (let ((length  (field-length field))