Parent Directory | Revision Log | 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 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |