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