Changeset 20821 in project


Ignore:
Timestamp:
10/12/10 21:53:08 (11 years ago)
Author:
felix winkelmann
Message:

,ls and ,cs ask for system if none defined

Location:
release/4/system
Files:
4 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/system/tags/0.4/system.scm

    r20562 r20821  
    272272
    273273(when (feature? #:csi)
    274   (let ((selected #f))
     274  (let ()
    275275    (define (check)
    276       (or selected
    277           (error "no system selected - please use the `,sys' command to select one")))
     276      (unless (current-system)
     277        (print* "Enter expression that evaluates to a system: ")
     278        (current-system (eval (read))))
     279      (current-system))
    278280    (toplevel-command
    279281     'ls
     
    286288    (toplevel-command
    287289     'sys
    288      (lambda () (set! selected (eval (read))))
     290     (lambda () (current-system (eval (read))))
    289291     ",sys SYSTEM    select system")))
    290 
  • release/4/system/tags/0.4/system.setup

    r20562 r20821  
    77 'system
    88 '("system.so" "system.import.so")
    9  '((version 0.3)))
    10 
     9 '((version 0.4)))
  • release/4/system/trunk/system.scm

    r20562 r20821  
    272272
    273273(when (feature? #:csi)
    274   (let ((selected #f))
     274  (let ()
    275275    (define (check)
    276       (or selected
    277           (error "no system selected - please use the `,sys' command to select one")))
     276      (unless (current-system)
     277        (print* "Enter expression that evaluates to a system: ")
     278        (current-system (eval (read))))
     279      (current-system))
    278280    (toplevel-command
    279281     'ls
     
    286288    (toplevel-command
    287289     'sys
    288      (lambda () (set! selected (eval (read))))
     290     (lambda () (current-system (eval (read))))
    289291     ",sys SYSTEM    select system")))
    290 
  • release/4/system/trunk/system.setup

    r20562 r20821  
    77 'system
    88 '("system.so" "system.import.so")
    9  '((version 0.3)))
    10 
     9 '((version 0.4)))
Note: See TracChangeset for help on using the changeset viewer.