Changeset 12934 in project for chicken


Ignore:
Timestamp:
01/04/09 16:10:44 (11 years ago)
Author:
felix winkelmann
Message:

can not stand it any longer

Location:
chicken/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/chicken-install.scm

    r12933 r12934  
    11;;;; chicken-install.scm
    22;
    3 ; Copyright (c) 2008, The Chicken Team
     3; Copyright (c) 2008-2009, The Chicken Team
    44; All rights reserved.
    55;
     
    283283                             (sprintf "-e \"(installation-prefix \\\"~a\\\")\"" *prefix*)
    284284                             "")
    285                          (make-pathname (cdr e+d) (car e+d) "setup"))))
    286                (system* (sprintf "~a" cmd)))
     285                         (shellpath (make-pathname (cdr e+d) (car e+d) "setup")))))
     286               (print "  " cmd)
     287               (system* "~a" cmd)
    287288             (when (and *run-tests*
    288289                        (file-exists? "tests")
     
    291292               (current-directory "tests")
    292293               (let ((cmd (sprintf "~a -s run.scm ~a" *csi* (car e+d))))
    293                  (system* (sprintf "~a" cmd))))))
     294                 (print "  " cmd)
     295                 (system* "~a" cmd))))) )
    294296         *eggs+dirs*)))
    295297
  • chicken/trunk/setup-api.scm

    r12932 r12934  
    11;;;; setup-api.scm - build + installation API for eggs
    22;
    3 ; Copyright (c) 2008, The Chicken Team
     3; Copyright (c) 2008-2009, The Chicken Team
    44; All rights reserved.
    55;
     
    293293  (cond ((string=? prg "csc")
    294294         (string-intersperse
    295           (cons* (shellpath 
     295          (cons* (shellpath
    296296                  (make-pathname
    297297                   *chicken-bin-path*
Note: See TracChangeset for help on using the changeset viewer.