Redid the source and the text to check for SCM_MAJOR_VERSION >= 2
This commit is contained in:
parent
567f944129
commit
892f3592cc
2 changed files with 3 additions and 3 deletions
|
|
@ -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))
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue