Skip to content

Instantly share code, notes, and snippets.

@jnthn
Created June 11, 2013 14:37
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save jnthn/5757345 to your computer and use it in GitHub Desktop.
Save jnthn/5757345 to your computer and use it in GitHub Desktop.
diff --git a/src/TclList.pm b/src/TclList.pm
index 7d36929..14f9107 100644
--- a/src/TclList.pm
+++ b/src/TclList.pm
@@ -165,15 +165,16 @@ class TclList {
#
# Add a vtable override for get_string
#
-sub static($code) {
- $code.get_lexinfo().get_static_code()
-};
-
-TclList.HOW.add_parrot_vtable_mapping(
- TclList, 'get_string', static(sub ($self) {
- $self.get_string
- })
-);
-TclList.HOW.compose(TclList);
-
+BEGIN {
+ sub static($code) {
+ $code.get_lexinfo().get_static_code()
+ };
+
+ TclList.HOW.add_parrot_vtable_mapping(
+ TclList, 'get_string', static(sub ($self) {
+ $self.get_string
+ })
+ );
+ TclList.HOW.compose(TclList);
+}
# vim: expandtab shiftwidth=4 ft=perl6:
diff --git a/tools/build/Makefile.in b/tools/build/Makefile.in
index 3a7dc5c..6102158 100644
--- a/tools/build/Makefile.in
+++ b/tools/build/Makefile.in
@@ -185,3 +185,6 @@ install: all
.PHONY : .revision
.revision:
@git log -1 --pretty=format:%H > .revision
+
+# nqp::makefile <-- tells NQP::Configure to treat this file as a makefile,
+# performing win32 slash and makefile conversions
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment