図形言語

SICP

thinkpad 号にてソースを掘り出して実行してみた。ここでも segment が # って言われてしまう模様。
下記、若干実装が違う形なんですが

$ gosh main.scm
freeglut (main.scm): Unable to create direct context rendering for window 'hello'
This may hurt performance.
*** ERROR: pair required, but got #<undef>
Stack Trace:
_______________________________________
  0  segment
  
  1  (start-segment segment)
        At line 65 of "./2.52.scm"
  2  (frame-coord-map frame)
        At line 65 of "./2.52.scm"
  3  paint-upper
  
  4  paint-left
  
  5  (stub-proc)
        At line 10 of "./main.scm"
  6  (glut-main-loop)
        At line 38 of "./main.scm"
$

基本的に手続き定義に手を入れてないはずなんだけどなぁ。バージョンも違いはないはずなんですが、何が悪さをしてるのかが全然想像つかん。何か分かれば追記します。