bugScheme Untergrund Library - Bugs: bug #17416, Bug in `pps' (with patch)


bug #17416: Bug in `pps' (with patch)

Submitted by:  None
Submitted on:  Sun 13 Aug 2006 05:56:24 PM UTC  
Category: NoneSeverity: 3 - Normal
Item Group: NoneStatus: None
Privacy: PublicAssigned to: None
Open/Closed: Open

Add a New Comment(Rich Markup)

You are not logged in

Please log in, so followups can be emailed to you.


Sun 13 Aug 2006 05:56:24 PM UTC, original submission:

`pps' fails with

Error: exception
(car '())

if there is no `ps' definition for the current operating system.

The code was intended to fail with a more helpful message, but a bug
impeded this. Here is a fix:

diff -c /usr/local/packages/scsh-packages/lib/scsh/0.6/pps/scheme/pps.scm.\~1\~ /usr/local/packages/scsh-packages/lib/scsh/0.6/pps/scheme/pps.scm

      • /usr/local/packages/scsh-packages/lib/scsh/0.6/pps/scheme/pps.scm.~1~ Sat Aug 12 13:31:27 2006

--- /usr/local/packages/scsh-packages/lib/scsh/0.6/pps/scheme/pps.scm Sun Aug 13 19:49:32 2006

      • 53,59 ****

(define (pps)
(let ((os (uname:os-name (uname))))
(let lp ((os-pss os-pss))
! (if (null? os-pss)
(error "ps not defined for " os)
(let ((next (car os-pss)))
(if (string=? os (ps-uname-string next))
--- 53,59 ----
(define (pps)
(let ((os (uname:os-name (uname))))
(let lp ((os-pss os-pss))
! (if (null? os-pss)
(error "ps not defined for " os)
(let ((next (car os-pss)))
(if (string=? os (ps-uname-string next))



(Note: upload size limit is set to 16384 kB, after insertion of the required escape characters.)

Attach File(s):

No files currently attached


Depends on the following items: None found

Items that depend on this one: None found


CC list is empty


Do you think this task is very important?
If so, you can click here to add your encouragement to it.
This task has 0 encouragements so far.

Only logged-in users can vote.


Please enter the title of George Orwell's famous dystopian book (it's a date):



No Changes Have Been Made to This Item

Back to the top

Powered by Savane 3.1-cleanup1