Changeset 37045 in project

Timestamp:

01/16/19 15:56:57 (7 months ago)

Author:

Kon Lovett

Message:

quick "fix" for no more qualified symbols

Location:

release/5/apropos/trunk

Files:

• apropos-api.scm (modified) (3 diffs)
• apropos.egg (modified) (1 diff)
• tests/apropos-test.scm (modified) (1 diff)

release/5/apropos/trunk/apropos-api.scm

@@ -55 +55 @@
     symbol-printname=? symbol-printname<?
     symbol-printname-length max-symbol-printname-length)
-  (only symbol-qualified-utils qualified-symbol?)
   (only type-checks check-fixnum define-check+error-type)
   (only type-errors define-error-type error-argument-type)
@@ -67 +66 @@
 (define (any? x)
   #t )
+
+(define (qualified-symbol? sym)
+  #f )
 
 ;;
@@ -186 +188 @@
       (if qualified?
         any?
-        (lambda (x)
-          (not (qualified-symbol? x))))))
+        (lambda (x) (not (qualified-symbol? x))))) )
     (search-macro-environment-symbols macenv
       (lambda (sym)

release/5/apropos/trunk/apropos.egg

@@ -4 +4 @@
 ;BUG? (inline-file) w/o any define-inline causes error for non-existent apropos.inline
 
-((synopsis "Chicken apropos")
- (version "3.2.2")
+((synopsis "CHICKEN apropos")
+ (version "3.2.3")
  (category misc)
  (author "[[kon lovett]]")

release/5/apropos/trunk/tests/apropos-test.scm

@@ -67 +67 @@
   '(foobarvar2 foobarvar1 foobarprocx foobarprocn foobarproc2 foobarproc1 foobarproc0)
   (apropos-list 'foobar))
+
 (apropos-list-test
   '(foobarvar2 foobarvar1 foobarprocx foobarprocn foobarproc2 foobarproc1 foobarproc0)
   (apropos-list "foobar"))
+
+#;
 (apropos-list-test
   '(##bar#foo1 ##bar#foo2 foobarmacro1 foobarmacro2 foobarproc0 foobarproc1 foobarproc2 foobarprocn foobarprocx foobarvar1 foobarvar2)
   (apropos-list 'foo #:macros? #t #:qualified? #t))
+
 (apropos-list-test
   '(foobarvar2 foobarvar1 foobarprocx foobarprocn foobarproc2 foobarproc1 foobarproc0 foobarmacro1 foobarmacro2)
   (apropos-list 'foobar #:macros? #t))
+
 (apropos-list-test
   '(foobarvar2 foobarvar1 foobarprocx foobarprocn foobarproc2 foobarproc1 foobarproc0 Foobarvar2 Foobarvar1)
   (apropos-list 'foobar #:case-insensitive? #t))
+
 (apropos-list-test
   '(foobarvar2 foobarvar1 Foobarvar1 Foobarvar2)