diff options
| author | Rob Savoye <rob@welcomehome.org> | 2010-11-29 17:42:11 -0700 |
|---|---|---|
| committer | Rob Savoye <rob@welcomehome.org> | 2010-11-29 17:42:11 -0700 |
| commit | 99f4366b48d254051f68b10b2d43b83cc9fb2143 (patch) | |
| tree | 746eb6bd0f4dd931d456233c663719672c1df82e /gr-run-waveform/guile/simple.scm | |
| parent | e44a9201737d4d52670bfbcb22d9b61e50846732 (diff) | |
add xyzzy-primitive-load and xyzzy-primitive-load-path along with a minimal test case
Diffstat (limited to 'gr-run-waveform/guile/simple.scm')
| -rw-r--r-- | gr-run-waveform/guile/simple.scm | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/gr-run-waveform/guile/simple.scm b/gr-run-waveform/guile/simple.scm index de95ce2cd5..fc215c21a7 100644 --- a/gr-run-waveform/guile/simple.scm +++ b/gr-run-waveform/guile/simple.scm @@ -35,12 +35,16 @@ path-with-xyzzy (display "PASSED: xyzzy-search-path from guile\n") (display "FAILED: xyzzy-search-path from guile\n")) -;; Add the suffix for primitice-load - -;; Redefine the file name to the full path -(define filename "/usr/share/guile/1.8/ice-9/boot-9.scm") - -;;(define result5 (primitive-load filename)) +;; (define result5 (primitive-load filename)) ;; (define result6 (xyzzy-primitive-load file)) + +;; FIXME: not sure how to tell if this worked other than if the test doesn't crash (define result7 (xyzzy-primitive-load expected)) +(define result8 (xyzzy-primitive-load-path expected)) + +(define result9 (xyzzy-search-load-path filename)) +;;(if (string=? result9 expected) +;; (display "PASSED: xyzzy-search-load-path from guile\n") +;; (display "FAILED: xyzzy-search-load-path from guile\n")) + |