diff options
author | bnewbold <bnewbold@eta.mit.edu> | 2009-05-08 03:35:05 -0400 |
---|---|---|
committer | bnewbold <bnewbold@eta.mit.edu> | 2009-05-08 03:35:05 -0400 |
commit | 2aad489f2c311a8fdfed8419fdf523f055f0296d (patch) | |
tree | 4d21f1ad6768f9fb4b3c9e2307c9e3d13e0c882a /final_project/work/explore.scm | |
parent | beaad775a6621f0896f0f5b9b40bd9e25ec9d8c7 (diff) | |
download | 6.945-2aad489f2c311a8fdfed8419fdf523f055f0296d.tar.gz 6.945-2aad489f2c311a8fdfed8419fdf523f055f0296d.zip |
oh yeah
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)) + +|# ----- + + |