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.5