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

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

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

revision 1.3 by ossau, Wed Jan 30 00:03:40 2002 UTC revision 1.4 by ossau, Fri Feb 8 11:50:51 2002 UTC
# Line 1  Line 1 
1  (define-module (lang elisp primitives strings)  (define-module (lang elisp primitives strings)
2    #:use-module (lang elisp internals fset)    #:use-module (lang elisp internals fset)
3      #:use-module (lang elisp internals null)
4    #:use-module (lang elisp internals signal))    #:use-module (lang elisp internals signal))
5    
6  (fset 'substring substring)  (fset 'substring substring)
# Line 19  Line 20 
20    
21  (fset 'number-to-string number->string)  (fset 'number-to-string number->string)
22    
23  (fset 'string-lessp string<?)  (fset 'string-lessp (lambda->nil string<?))
24  (fset 'string< 'string-lessp)  (fset 'string< 'string-lessp)
25    
26  (fset 'aref  (fset 'aref
# Line 28  Line 29 
29                ((string? array) (char->integer (string-ref array idx)))                ((string? array) (char->integer (string-ref array idx)))
30                (else (wta 'arrayp array 1)))))                (else (wta 'arrayp array 1)))))
31    
32  (fset 'stringp string?)  (fset 'stringp (lambda->nil string?))
33    
34  (fset 'vector vector)  (fset 'vector vector)

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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