summaryrefslogtreecommitdiffstats
path: root/final_project/work/explore.scm
blob: 526c8f0477835dd67c1425daad820d65c94eb04f (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

; explore.scm

; 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))

|# -----