Changeset 13874 in project


Ignore:
Timestamp:
03/23/09 11:50:54 (11 years ago)
Author:
felix winkelmann
Message:

windows-related fix in chicken-bug

File:
1 edited

Legend:

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

    r12956 r13874  
    4040(define-foreign-variable +c-include-path+ c-string "C_INSTALL_INCLUDE_HOME")
    4141
     42(define (user-id)
     43  (cond-expand
     44   ((or mingw32 msvc) "<not available>")
     45   (else (user-information (current-user-id)))))
    4246
    4347(define (collect-info)
     
    4549  (print "This is a bug report generated by chicken-bug(1).\n")
    4650  (print "Date:\t" (seconds->string (current-seconds)) "\n\n")
    47   (printf "User information:\t~s~%~%" (user-information (current-user-id)))
     51  (printf "User information:\t~s~%~%" (user-id))
    4852  (print "Host information:\n")
    4953  (print "\tmachine type:\t" (machine-type))
Note: See TracChangeset for help on using the changeset viewer.