Changeset 12630 in project


Ignore:
Timestamp:
11/28/08 09:29:34 (11 years ago)
Author:
felix winkelmann
Message:

various trivial fixes

Location:
chicken/trunk
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/TODO

    r12610 r12630  
    138138* tasks
    139139
    140 ** NEWS
    141 *** document changes between now and last time, this was updated
    142     (4.0.0x2 doesn't appear, for example)
    143 
    144140** branches
    145141*** test irregular branch, merge if performance is acceptable
  • chicken/trunk/batch-driver.scm

    r12610 r12630  
    382382        (dribble "Generating ~aprofile" (if acc "accumulated " "")) ) )
    383383
    384     (and-let* ((dbfile (file-exists? (make-pathname (repository-path) "db"))))
     384    ;;*** hardcoded "modules.db" is bad (also used in chicken-install.scm)
     385    (and-let* ((dbfile (file-exists? (make-pathname (repository-path) "modules.db"))))
    385386      (dribble "loading database ~a ..." dbfile)
    386387      (for-each
  • chicken/trunk/chicken-install.scm

    r12609 r12630  
    312312                 (let* ((mod (cdr m))
    313313                        (mname (##sys#module-name mod)))
    314                    (print " " mname)
     314                   (print* " " mname)
    315315                   (let-values (((_ ve se) (##sys#module-exports mod)))
    316316                     (append
     
    320320              (lambda (e1 e2)
    321321                (string<? (symbol->string (car e1)) (symbol->string (car e2)))))))
     322        (newline)
    322323        (with-output-to-file (make-pathname (repository-path) +module-db+)
    323324          (lambda ()
  • chicken/trunk/expand.scm

    r12609 r12630  
    15931593         (and-let* ((a (##sys#get u '##core#db)))
    15941594           (let ((m (cadr a)))
    1595              (unless (memq m suggest)
     1595             (when (and (= (length a) 2) (not (memq m suggest)))
    15961596               (set! suggest (cons m suggest)))))))
    15971597     (module-undefined-list mod))
  • chicken/trunk/rules.make

    r12609 r12630  
    10591059ifeq ($(DESTDIR),)
    10601060        $(DESTDIR)$(IBINDIR)/$(CHICKEN_INSTALL_PROGRAM) -update-db
     1061else
     1062        @echo
     1063        @echo "Warning: can not run `chicken-install -u\' when DESTDIR is set"
     1064        @echo
    10611065endif
    10621066endif
Note: See TracChangeset for help on using the changeset viewer.