diff options
Diffstat (limited to 'final_project/work/explore.scm')
-rw-r--r-- | final_project/work/explore.scm | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/final_project/work/explore.scm b/final_project/work/explore.scm new file mode 100644 index 0000000..526c8f0 --- /dev/null +++ b/final_project/work/explore.scm @@ -0,0 +1,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)) + +|# ----- + + |