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:  None Severity:  3 - Normal
Item Group:  None Status:  None
Privacy:  Public Assigned 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))

Anonymous

 

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

Attach Files:
   
   
Comment:
   

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 add your encouragement to it.
This task has 0 encouragements so far.

Only logged-in users can vote.

 

 

 

No changes have been made to this item

Back to the top


Powered by Savane 3.3