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]

sign


Hi,

Guile has no sign function or has it another name?

(define-public (sign value)
  (cond ((> value 0) 1)
	((< value 0) -1)
	(else 0)))

-- http://www.ping.de/sites/aibon/