checking Examples/guile/class
/bin/sh: line 1: 28283 Segmentation fault      env GUILE_AUTO_COMPILE=0 /usr/bin/guile -l runme.scm > /dev/null
make[3]: *** [guile_run] Error 139
make[2]: *** [check] Error 2
make[1]: *** [class.actionexample] Ошибка 2
checking Examples/guile/port
checking Examples/guile/simple
checking Examples/guile/std_vector
/bin/sh: line 1: 28337 Segmentation fault      env GUILE_AUTO_COMPILE=0 /usr/bin/guile -l runme.scm > /dev/null
make[3]: *** [guile_run] Error 139
make[2]: *** [check] Error 2
make[1]: *** [std_vector.actionexample] Ошибка 2
checking Examples/guile/matrix
checking Examples/guile/multimap
/bin/sh: line 1: 28377 Segmentation fault      env GUILE_AUTO_COMPILE=0 /usr/bin/guile -l runme.scm > /dev/null
make[3]: *** [guile_run] Error 139
make[2]: *** [check] Error 2
make[1]: *** [multimap.actionexample] Ошибка 2
checking Examples/guile/multivalue
/bin/sh: line 1: 28397 Segmentation fault      env GUILE_AUTO_COMPILE=0 /usr/bin/guile -l runme.scm > /dev/null
make[3]: *** [guile_run] Error 139
make[2]: *** [check] Error 2
make[1]: *** [multivalue.actionexample] Ошибка 2
make: *** [check-guile-examples] Ошибка 2
[test@dcsin swig-3.0.12]$ cd Examples/guile/class
[test@dcsin class]$ guile --version
guile (GNU Guile) 2.2.2
Copyright (C) 2017 Free Software Foundation, Inc.

License LGPLv3+: GNU LGPL 3 or later <http://gnu.org/licenses/lgpl.html>.
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.
[test@dcsin class]$ env GUILE_AUTO_COMPILE=0 /usr/bin/guile -l runme.scm
Ошибка сегментирования
[test@dcsin class]$ cat runme.scm
; file: runme.scm

; This file illustrates the proxy class C++ interface generated
; by SWIG.

(load-extension "./libexample" "scm_init_example_module")

; Convenience wrapper around the display function
; (which only accepts one argument at the time)

(define (mdisplay-newline . args)
  (for-each display args)
  (newline))

; ----- Object creation -----

(mdisplay-newline "Creating some objects:")
(define c (new-Circle 10))
(mdisplay-newline "    Created circle " c)
(define s (new-Square 10))
(mdisplay-newline "    Created square " s)

; ----- Access a static member -----

(mdisplay-newline "\nA total of " (Shape-nshapes) " shapes were created")

; ----- Member data access -----

; Set the location of the object

(Shape-x-set c 20)
(Shape-y-set c 30)

(Shape-x-set s -10)
(Shape-y-set s 5)

(mdisplay-newline "\nHere is their current position:")
(mdisplay-newline "    Circle = (" (Shape-x-get c) "," (Shape-y-get c) ")")
(mdisplay-newline "    Square = (" (Shape-x-get s) "," (Shape-y-get s) ")")

; ----- Call some methods -----


(mdisplay-newline "\nHere are some properties of the shapes:")
(define (shape-props o)
  (mdisplay-newline "   " o)
  (mdisplay-newline "   area      = " (Shape-area o))
  (mdisplay-newline "   perimeter = " (Shape-perimeter o)))
(for-each  shape-props (list c s))

(mdisplay-newline "\nGuess I'll clean up now")

; Note: this invokes the virtual destructor
(delete-Shape c)
(delete-Shape s)

(define s 3)
(mdisplay-newline (Shape-nshapes) " shapes remain")
(mdisplay-newline "Goodbye")

(exit 0)
[test@dcsin class]$ guile
guile         guile18       guile22       guile-config  guile-snarf   guile-tools
[test@dcsin class]$ env GUILE_AUTO_COMPILE=0 /usr/bin/guile18 -l runme.scm
Creating some objects:
    Created circle #<collectable-swig-pointer Circle * 649e10>
    Created square #<collectable-swig-pointer Square * 649e40>

A total of 2 shapes were created

Here is their current position:
    Circle = (20.0,30.0)
    Square = (-10.0,5.0)

Here are some properties of the shapes:
   #<collectable-swig-pointer Circle * 649e10>
   area      = 314.159265358979
   perimeter = 62.8318530717959
   #<collectable-swig-pointer Square * 649e40>
   area      = 100.0
   perimeter = 40.0

Guess I'll clean up now
0 shapes remain
Goodbye

[test@dcsin class]$ env GUILE_AUTO_COMPILE=0 /usr/bin/guile22 -l runme.scm
Ошибка сегментирования