/[guile]/guile/guile-core/lang/elisp/primitives/system.scm
ViewVC logotype

Diff of /guile/guile-core/lang/elisp/primitives/system.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by ossau, Fri Oct 26 16:42:44 2001 UTC revision 1.2 by ossau, Tue Jan 22 23:46:01 2002 UTC
# Line 0  Line 1 
1    (define-module (lang elisp primitives system)
2      #:use-module (lang elisp internals fset))
3    
4    (fset 'system-name
5          (lambda ()
6            (vector-ref (uname) 1)))
7    
8    (define-public system-type
9      (let ((uname (vector-ref (uname) 0)))
10        (if (string=? uname "Linux")
11            "gnu/linux"
12            uname)))
13    
14    (define-public system-configuration "i386-suse-linux") ;FIXME

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26