This is the mail archive of the guile@cygnus.com mailing list for the guile project.

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]

small bug in guile-scsh

Hello,

It seems, I've found a small bug in guile-scsh. 
Namely, when I tried to use constructions like
	(run (cat in_file) (> out_file))
I got the error
	"undefined variable shell-open"

I found in the original distribution of scsh the following
definitions, which I think is worth to add to the end of
syscalls.scm:

;;;;=====>>>>> to be added to the end of syscall.scm <<<<<<<==== 
(define (shell-open path flags fdes)
  (move->fdes (open-fdes (stringify path) flags #o666) fdes))

(define open/create+trunc
  (bitwise-ior open/write (bitwise-ior open/create open/truncate)))

(define open/write+append+create
  (bitwise-ior open/write
               (bitwise-ior  open/append open/create)))
;;;;=====>>>>>          end of addition              <<<<<<<==== 

--
Best regards,
	Valentin.