scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Cosmetic fix: the file uses explicit STRUCTURE-REFs for all 

references to THREADS-INTERNAL except one.  Make that one reference
into a STRUCTURE-REF also.
This commit is contained in:
sperber 2002-09-03 13:23:54 +00:00
parent efb2ad6bed
commit 3d7f50ada2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scsh/sighandlers.scm
View File

@ -175,7 +175,7 @@
(set-interrupt-handler (set-interrupt-handler
i i
#t)))) #t))))
(let ((scsh-initial-thread (current-thread))) (let ((scsh-initial-thread ((structure-ref threads-internal current-thread))))
(if (not (eq? (thread-name scsh-initial-thread) (if (not (eq? (thread-name scsh-initial-thread)
'scsh-initial-thread)) 'scsh-initial-thread))
(error "sighandler did not find scsh-initial-thread, but" (error "sighandler did not find scsh-initial-thread, but"