Redid the source and the text to check for SCM_MAJOR_VERSION >= 2

This commit is contained in:
Brian Caine 2017-01-27 12:25:14 -05:00 committed by William S Fulton
commit 892f3592cc
2 changed files with 3 additions and 3 deletions

View file

@ -7,7 +7,7 @@
;; if we're running guile 1.8, then bytevector->pointer won't exist and this
;; test is useless
(if (module-variable (resolve-module '(system foreign)) 'bytevector->pointer)
(if (>= (string->number (major-version)) 2)
(begin
(use-modules (srfi srfi-4) (system foreign))