Custom Query (1630 matches)

#;2> (with-output-to-string (lambda () (write (string->symbol (string-append "5" "\x00")))))
"|5\x00|"

NB: That \x00 in the output is due to the string being escaped, not the control character in the symbol being escaped.

This problem is particularly painful when one outputs the symbol direct to the terminal, where the \x00 just disappears:

#;5> (write (string->symbol "5\x00"))
|5|#;6> 

...and one then spends ages tearing one's hair out as to what's wrong!

I wrote some functions that Ugarit needed, that the posix unit lacked.

source:release/4/ugarit/trunk/posixextras.scm

They're ruthlessly based on other similar functions in posixunix.scm

Would they be welcome in posixunix.scm? If so, feel free to have them. Should they just be omitted in posixwin.scm, or stubs written, or equivalent functionality chosen?

It appears that require-extension doesn't work if you've locally rebound QUOTE:

alaric@ubuntu:~/personal/tmp$ cat test.scm 
(let ((quote 1))
     (require-extension aes))
alaric@ubuntu:~/personal/tmp$ csi -script test.scm

Error: unbound variable: aes

	Call history:

	<syntax>	  (let ((quote 1)) (require-extension aes))
	<syntax>	  (##core#let ((quote 1)) (require-extension aes))
	<syntax>	  (##core#begin (##core#require-extension (aes) #t))
	<syntax>	  (##core#require-extension (aes) #t)
	<syntax>	  (##core#begin (##core#begin (##core#begin (##sys#require (quote aes))) (import aes)) (##core#undefin......
	<syntax>	  (##core#begin (##core#begin (##sys#require (quote aes))) (import aes))
	<syntax>	  (##core#begin (##sys#require (quote aes)))
	<syntax>	  (##sys#require (quote aes))
	<syntax>	  (quote aes)
	<syntax>	  (import aes)
	<syntax>	  (import scheme chicken foreign extras)
	<syntax>	  (##core#undefined)
	<syntax>	  (##core#undefined)
	<syntax>	  (##core#undefined)
	<eval>	  (##sys#require (quote aes))
	<eval>	  (quote aes)	<--
alaric@ubuntu:~/personal/tmp$ csc test.scm
alaric@ubuntu:~/personal/tmp$ ./test 

Error: unbound variable: aes

	Call history:

	quote0	  	<--