diff options
| author | Rob Savoye <rob@welcomehome.org> | 2010-11-29 16:39:34 -0700 |
|---|---|---|
| committer | Rob Savoye <rob@welcomehome.org> | 2010-11-29 16:39:34 -0700 |
| commit | c41980f614ad97d84358aa7bbcd674786db0b13c (patch) | |
| tree | f37f44002fd4449e72464a8ba04f5cf47b995f10 /gr-run-waveform/guile/simple.scm | |
| parent | c0a4e83d1c455bf24ab7d97f0e4f8ae787bd2fa9 (diff) | |
add xyzzy-primitive-load and minimal test case
Diffstat (limited to 'gr-run-waveform/guile/simple.scm')
| -rw-r--r-- | gr-run-waveform/guile/simple.scm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/gr-run-waveform/guile/simple.scm b/gr-run-waveform/guile/simple.scm index 33560a384b..de95ce2cd5 100644 --- a/gr-run-waveform/guile/simple.scm +++ b/gr-run-waveform/guile/simple.scm @@ -34,3 +34,13 @@ path-with-xyzzy (if (string=? result4 expected) (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 result6 (xyzzy-primitive-load file)) +(define result7 (xyzzy-primitive-load expected)) |