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

Diff of /guile/guile-core/lang/elisp/primitives/fns.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 18  Line 18 
18    
19  (fset 'commandp  (fset 'commandp
20        (lambda (sym)        (lambda (sym)
21          (if (interactive-spec (fref sym)) #t %nil)))          (if (interactive-specification (fref sym)) #t %nil)))
22    
23  (fset 'fboundp  (fset 'fboundp
24        (lambda (sym)        (lambda (sym)
25          (variable? (symbol-fref sym))))          (->nil (variable? (symbol-fref sym)))))
26    
27  (fset 'symbol-function fref/error-if-void)  (fset 'symbol-function fref/error-if-void)
28    
# Line 30  Line 30 
30    
31  (fset 'subrp  (fset 'subrp
32        (lambda (obj)        (lambda (obj)
33          (not (not-subr? obj))))          (->nil (not (not-subr? obj)))))
34    
35  (fset 'byte-code-function-p  (fset 'byte-code-function-p
36        (lambda (object)        (lambda (object)

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