code-browser/module.dylan at main · dylan-hackers/code-browser · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
module: code-browser
Synopsis: Browse Open Dylan environment objects
Author:   Andreas Bogk, Bastian Mueller, Hannes Mehnert

define body tag used-modules in code-browser
    (page :: <code-browser-page>, do-body :: <function>)
    ()
  do-used-definitions(method(x)
                       dynamic-bind(*environment-object* = x)
                         do-body()
                       end;
                     end, *project*, *environment-object*);
end;

define body tag module-definitions in code-browser
    (page :: <code-browser-page>, do-body :: <function>)
    ()
  do-module-definitions(method(x)
                          dynamic-bind(*environment-object* = x)
                            do-body()
                          end;
                        end, *project*, *environment-object*)
end;

begin
  main()
end;