summaryrefslogtreecommitdiffstats
path: root/final_project/work/explore.scm
blob: 3b219fa7a5f0011b57b3f0b57ee6ee566f8f5e32 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
; explore.scm
; this file assumes scmutils

(load "discovery") 
; if it isn't already...
;(load "ghelper")

; just pass through to display
(define explore:display
  (make-generic-operator 1 display 'display))

; just pass through to pp
(define explore:pp
  (make-generic-operator 1 pp 'pp))

; show latex
(define explore:show-latex
  (make-generic-operator 1 #f 'show-latex))

(assign-operation explore:show-latex se function?)
(assign-operation explore:show-latex se matrix?)
(assign-operation explore:show-latex se vector?)

#| ----- Testing
(explore:show-latex sin)
; works as expected

(explore:show-latex #(1 2 3 4))

|# -----