learning-sicp

My embarrassing half assed SICP run.
git clone https://kaka.farm/~git/learning-sicp
Log | Files | Refs

exercise-25.scm (573B)

      1 (define-library (sicp tests chapter-3 exercise-25)
      2   (import (scheme base))
      3   (import (scheme write))
      4 
      5   (import (srfi :64))
      6 
      7   (import (sicp solutions chapter-3 exercise-25))
      8 
      9   (begin
     10     (test-begin "chapter-3-exercise-25")
     11 
     12     (define t (make-table))
     13 
     14     (display t) (newline)
     15     (display (t 'lookup)) (newline)
     16     (display (t 'insert!)) (newline)
     17 
     18     (display (t 'local-table)) (newline)
     19 
     20     (display ((t 'insert!) '(a) 1)) (newline)
     21     (display (t 'local-table)) (newline)
     22     (display ((t 'lookup) '(a))) (newline)
     23 
     24 
     25 
     26     (test-end "chapter-3-exercise-25")))